use strict;
use warnings;
use Data::Dumper;

my @fname = ( "Philip",  "John", "Daniel", "John",  "Ted" );
my @lname = ( "Johnson", "Hill", "Sharp",  "Evans", "McCain" );
my @state = ( "AK",      "CA",   "AL",     "WI",    "TX");

my %hash = map { $fname[$_] . ' ' . $lname[$_] => $state[$_] } 0 .. $#state;
print "Unsorted:\n" ,Dumper \%hash;
print "==========\n";
print "Sorted:\n", map "$_, $hash{$_}\n", sort {$hash{$a} cmp $hash{$b}} keys %hash;