my @sorted = sort { $person{firstname}[$a] cmp $person{firstname}[$b] }
             0 .. $#{ $person{firstname} };

foreach (@sorted) {
   print("firstname: ", $person{firstname}[$_], "\n");
   print("lastname:  ", $person{lastname }[$_], "\n");
   print("city:      ", $person{city     }[$_], "\n");
   print("\n");
}