#!/usr/bin/perl -w
use strict;
my %hash = (  brian => "hunter", 
	      joe => "hill", 
	      jane => "miller" 
	   );
foreach my $key ( sort(keys %hash )) {
	print "FNAME = $key LNAME = $hash{$key}\n";
}
exit(0);