sub build_hash {
    my %return;
    @return{@keys} = @values;
    \%return;
}

##</code><code>##

sub build_hash {
    ( @keys, @_ )[ map { $_, $_ + @keys } 0 .. $#keys ];
}