my %hash;
for my $i (0 .. $#fname) {
	$hash{ "$fname[$i] $lname[$i]" } = $state[$i]
}

# sort the keys by value

for my $key ( sort { $hash{$a} cmp $hash{$b} } keys %hash ) {
	print "$key $hash{$key}\n";
}

# alternatively

my @sorted = sort { $hash{$a} cmp $hash{$b} } keys %hash;

for my $key ( @sorted ) {
	print "$key $hash{$key}\n";
}