use Benchmark;

my @array = qw(a b c d e f g h i j k l m n o p q r s t u v w z y z);
my %hash;

timethese(10000, {
        'btrott' => sub {
                @hash{@array} = (1) x @array;
        },
        'plaid' => sub {
                my $code
		map { $code .= "\$hash{$_} = 1;\n" } @array;
		eval "$code";
        }
});