Select Code to Download

   print "Print city: $result->[0]{'city'}\n";

     my %hash = %{$result->[0]};  # copy result to new hash
     ...
     print "Print city: $hash{'city'}\n";