U:\>perl -MData::Dumper -e "sub whatever {$aref = @_[0]; print $aref->[1]}; @aa=
(1..5); whatever(\@aa);"
2
U:\>