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;

##</code><code>##

$ perl sort_hash.pl
Unsorted:
$VAR1 = {
          'John Evans' => 'WI',
          'Philip Johnson' => 'AK',
          'John Hill' => 'CA',
          'Ted McCain' => 'TX',
          'Daniel Sharp' => 'AL'
        };
==========
Sorted:
Philip Johnson, AK
Daniel Sharp, AL
John Hill, CA
Ted McCain, TX
John Evans, WI