in reply to passing paramters to a sub
U:\>perl -MData::Dumper -e "sub whatever {$aref = @_[0]; print $aref- +>[1]}; @aa= (1..5); whatever(\@aa);" 2 U:\> [download]
Celebrate Intellectual Diversity