my ($blah) = @_;   # note the ()s. w/o them $blah is the size of @_.
my  $blah  = shift;