DB<143> $hash{$_->[0]}{$_->[1]} = 1 for map { [split /\s+/] } <I>
 => ""

  DB<144> \%hash
 => { Canberra => { 12 => 1, 18 => 1 }, Sydney => { 12 => 1, 14 => 1 } }