$ cat country
Chicago, USA
Frankfurt, Germany
Berlin, Germany
Washington, USA
Helsinki, Finland
New York, USA

 

 
  
  1. #!/usr/bin/perl -w 
  2. use strict; 
  3. my %table; 
  4. my ($city,$country); 
  5. while (<>) { 
  6.  chomp; 
  7.  my ($city,$country) = split /,/; 
  8.  push @{$table{$country}},$city; 
  9. } 
  10.  
  11. foreach $country (sort keys %table){ 
  12.  print "$country:"; 
  13.  my @cities = @{$table{$country}}; 
  14.  print join ',', sort @cities; 
  15.  print ".\n"; 
  16.  
  17. } 
  18.  
 
  
result：
 
  
$ perl country.pl country
  Finland:Helsinki.
  Germany:Berlin,Frankfurt.
  USA:Chicago,New York,Washington.