Select Code to Download

use List::MoreUtils qw(mesh);

...
my @array2 = qw( acct1 acct2 acct3 acct4 acct5 acct8 );

my %merged = mesh @array, @array2;