use List::MoreUtils qw(mesh);

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

my %merged = mesh @array, @array2;