in reply to How to Print Return Data from Subroutine

You're returning an anonymous hash. So you could just use Data::Dumper to get a list of your results.
use Data::Dumper my $hash = parser(); print Dumper($hash);
If you want to print a particular key in the hash you'll need to use this syntax:
print $hash->{'key'};
Thanks,
s;;5776?12321=10609$d=9409:12100$xx;;s;(\d*);push @_,$1;eg;map{print chr(sqrt($_))."\n"} @_;