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