sub a
{
     print $_,$/;
}

my @x = qw[ 1 2 3 ];
a(scalar(@x));