Select Code to Download

my @array = qw( 111 222 333 444 555 888 );
my @array2 = qw( acct1 acct2 acct3 acct4 acct5 acct8 );
...
use Data::Dumper;
print Dumper \%hash;