my %hash = map { $_ => $_ } @array;
print($hash{string1}, "\n");
print($hash{string2}, "\n");
print($hash{string3}, "\n");