&test("aaa");
sub test {
　print $x;
}

ここで"aaa"を$xに入れるには
$x = $_[0];
としないと駄目でしょうか？

sub test($x : $_[0]){}のように変数名を指定したいのです