my @array = map { "a$_" }       (1..10000);
my %hash  = map { $_ => "a$_" } (1..10000);