{
    no strict qw/refs vars/;
    for my $key ( qw/list of keys/ ) {
        next if $key =~ /\W/ or $key =~ /^\d/;
        ${$key} = $hash{$key};
    }
}