Chicago, USA
	Frankfurt, Germany
	Berlin, Germany
	Washington, USA
	Helsinki, Finland
	New York, USA

##</code><code>##

#!/usr/bin/perl -w
use strict;
my %table;
while (<>){
	chomp;
	my ($city,$country)=split/,/;
	$table{$country}=[] unless exists $table{$country};
	push @{$table{$country}}, $city;
	
}
my $a=$table{"USA"};
print $a;  #line 12


foreach my $country (sort keys %table){
	
	if ($country eq "USA"){
	
	print "USA is found\n";
	}
	else{}
}