Select Code to Download

use strict;
use warnings;
...

my %hash = map { $fname[$_] . ' ' . $lname[$_] => $state[$_] } 0 .. $#
+state;
print Dumper \%hash;

$VAR1 = {
          'Bob Johnson' => 'AK',
          'Ashley Sharp' => 'AL',
          'John Hill' => 'CA'
        };