#!/usr/bin/perl
$input='';
%nme=();
$fn='';
$ln='';
while()
{
  print "enter the name\n";
  chomp($input=<STDIN>);
   if($input ne '')
{
   ($fn,$ln)=split('',$input);
    print "$fn, $ln\n";
    $nme{$ln}=$fn;
  }
else
  { 
    last;
  }
foreach $lastname(sort keys %nme)
{
  print "$lastname, $nme{$lastname}\n";
}