%hash = ("1" => ["canada", "us"], 
         "2" => ["england"],
         "3" => ["france", "russia"]);

print "$_ # ",  join(", ", @{$hash{$_}}), "\n"
  foreach
  keys %hash;