sub aaa($$)
{
my ($b, $c) = @_;
return ($b + $c) * ($b + $c);
}

関数の引数を受け取る時には @_ がでてきちゃうか