$ 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