. . . # push @{$words{$signature}, $_; $rTemp = $words{$signature} call push_op($rTemp, $_); . . . push_op: $rArray = get_array_ref($arg[0]); $rArray[$#rArray+1] = $_; return; get_array_ref: if (!defined $arg[0]) { return [ ]; } if ("ARRAY" ne ref $arg[0]) { die "Not an ARRAY reference"; } return $arg[0]; }