Select Code to Download

@sorted_phonebook = map {$_->[1]}
  sort {$a->[0] cmp $b->[0]}
  map {[$_{lastname},$_]} @phonebook;