$ perl -Mstrict -Mwarnings -E '
    use List::MoreUtils qw{pairwise}; $a || $b || 1;
    use Data::Dumper;

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

    my $data = [ pairwise { +{ $a => $b } } @array, @array2 ];

    print Dumper $data;
'
$VAR1 = [
          {
            '111' => 'acct1'
          },
          {
            '222' => 'acct2'
          },
          {
            '333' => 'acct3'
          },
          {
            '444' => 'acct4'
          },
          {
            '555' => 'acct5'
          },
          {
            '888' => 'acct8'
          }
        ];