#!/usr/bin/perl


&answer(80, 55, 75); 

sub answer {  
    # ここで引数を@_で受け取る  
    ($x, $y, $z) = @_;  
    $total = $x + $y + $z; 
    $mean = $total / 3;  
    print "合計点数は$total点で、平均点数は$mean点です。\n"; 
}