my @list;
while(<>) {
  chomp;
  my ($first, $last) = split(/\s+/, $_);
  push @list, "$last, $first";
}
foreach my $line( sort @list) {
  print $line,"\n";
}