%hash = map {  join( q{ }, $fname[$_], $lname[$_] ) => $state[$_]  } 0 .. $#fname;

##</code><code>##

@hash{    map{ join q{ }, $fname[$_], $lname[$_] } 0 .. $#fname    }  =  @state;

##</code><code>##

use List::MoreUtils qw( zip pairwise );
# ...
%hash = zip    @{[  pairwise { join q( ), $a, $b } @fname, @lname  ]},    @state;

##</code><code>##

@hash{@names} = @states;