#!/usr/bin/perl -w
#################################################################################
## Author:      BRIAN HUNTER
## Date:        8/10/2020
## Email:       brian@sutechy.com
#################################################################################
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);