Perl: Hash in array

1. Hash in array

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my @Hashes;
my %all = map {chomp; split} <DATA>;

for (keys %all) {
    print "$_, $all{$_}\n";
    push @Hashes, {$_ => $all{$_}};
}
print $Hashes[2]{'USA'},"\n";
print Dumper (\@Hashes);

for my $hash_ref (@Hashes) {
    #print $hash_ref -> {'USA'},"\n";
    for my $key (keys %{$hash_ref}) {
        print "$key => $hash_ref->{$key}$/";
        #print "$key => @$hash_ref{$key}$/";
    }
}


__DATA__
USA Chicago
Germany Frankfurt
Finland Helsinki

Output:

Finland, Helsinki
Germany, Frankfurt
USA, Chicago
Chicago
$VAR1 = [
          {
            'Finland' => 'Helsinki'
          },
          {
            'Germany' => 'Frankfurt'
          },
          {
            'USA' => 'Chicago'
          }
        ];
Finland => Helsinki
Germany => Frankfurt
USA => Chicago