sub name { print $a; .... }