Select Code to Download

my %people = (
  1 => { first_name => 'Bob',     last_name => 'Smith',   topic => 'An
+thropology' },
...
  4 => { first_name => 'Tina',    last_name => 'Lacy',    topic => 'So
+cial Work'  },
  5 => { first_name => 'Anthony', last_name => 'Sanders', topic => 'En
+glish'      },
);

#!/usr/bin/perl;

...
say for sort @last_names;

__END__

$ perl 1142844.pl
Lacy
...
Sanders
Smith
Smith