Select Code to Download

use strict;
use warnings;
...
my %barcode_hash = map { $_ => $data } 1 .. $size;
print "end\n";

...
our %barcode_hash = map { $_ => $data } 1 .. $size;
...

use strict;
use warnings;
...

printf "%0.03f seconds\n", time - $start_time;

perl timeit.pl perl test.pl

my  %big_hash:  2.726 seconds
our %big_hash:  1.351 seconds