sub my_subroutine($)
{
my @tmp_arry = @_;
print $tmp_arry[0];
...
}