my @array = qw( 111 222 333 444 555 888 );
my @array2 = qw( acct1 acct2 acct3 acct4 acct5 acct8 );

my %hash;
@hash{@array} = @array2;

use Data::Dumper;
print Dumper \%hash;