Help for this page

Select Code to Download


  1. or download this
    my @sorted = sort { $person{firstname}[$a] cmp $person{firstname}[$b] 
+}
             0 .. $#{ $person{firstname} };
...
   print("city:      ", $person{city     }[$_], "\n");
   print("\n");
}
  2. or download this
    my @sorted = sort { $person{firstname}[$a] cmp $person{firstname}[$b] 
+}
             0 .. $#{ $person{firstname} };
...
   print("city:      ", $person{city     }[$_], "\n");
   print("\n");
}