use Data::Dumper
my $hash = parser();
print Dumper($hash);

##</code><code>##

print $hash->{'key'};