#! /usr/bin/perl -w
print "File name to read in:" ."\n";
$ my_variable = <STDIN>;
Open (FILE, $my_variable);
 
while ()
{
   print "(N) for Name"," ","(#) for Number search"," ","(.) to exit:"."\n";
   $ my_input = <STDIN>;
   chomp ($ my_input);
   if ($ my_input eq "N")
   { 
   		print "Enter Name:" . "\n";
   		$ name= <STDIN>; 
   		chomp ($ name); 
   }
   elsif ($ my_input eq "#")
	{
  		print "Enter Number:" . "\n";
     	%find = <STDIN>;
	}   
	elsif ($ my_input eq ".")
	{
   		print "Done!!!" . "\n";
	}
	else 
	{
  		print "Error" . "\n";
	}
 
 chomp($find);
 print ($list($find) . "\n"); 
 }

CiMhIC91c3IvYmluL3BlcmwgLXcKcHJpbnQgIkZpbGUgbmFtZSB0byByZWFkIGluOiIgLiJcbiI7CiQgbXlfdmFyaWFibGUgPSA8U1RESU4+OwpPcGVuIChGSUxFLCAkbXlfdmFyaWFibGUpOwoKd2hpbGUgKCkKewogICBwcmludCAiKE4pIGZvciBOYW1lIiwiICIsIigjKSBmb3IgTnVtYmVyIHNlYXJjaCIsIiAiLCIoLikgdG8gZXhpdDoiLiJcbiI7CiAgICQgbXlfaW5wdXQgPSA8U1RESU4+OwogICBjaG9tcCAoJCBteV9pbnB1dCk7CiAgIGlmICgkIG15X2lucHV0IGVxICJOIikKICAgeyAKICAgCQlwcmludCAiRW50ZXIgTmFtZToiIC4gIlxuIjsKICAgCQkkIG5hbWU9IDxTVERJTj47IAogICAJCWNob21wICgkIG5hbWUpOyAKICAgfQogICBlbHNpZiAoJCBteV9pbnB1dCBlcSAiIyIpCgl7CiAgCQlwcmludCAiRW50ZXIgTnVtYmVyOiIgLiAiXG4iOwogICAgIAklZmluZCA9IDxTVERJTj47Cgl9ICAgCgllbHNpZiAoJCBteV9pbnB1dCBlcSAiLiIpCgl7CiAgIAkJcHJpbnQgIkRvbmUhISEiIC4gIlxuIjsKCX0KCWVsc2UgCgl7CiAgCQlwcmludCAiRXJyb3IiIC4gIlxuIjsKCX0KIAogY2hvbXAoJGZpbmQpOwogcHJpbnQgKCRsaXN0KCRmaW5kKSAuICJcbiIpOyAKIH0=