for my $key ( qw/key1 key2 key3/ ) {
    eval( "${$key}" ) = $hash{$key};
}