in reply to Returning all data from subroutine
This bit:
return @$ar1, @$ar2, @$ar3; [download]
Should be:
return $ar1, $ar2, $ar3; [download]
Similarly, this:
return @{ $ar1 }, @{ $ar2 }, @{ $ar3 }; [download]
Should also be: