my @li = map { ($_, 'X') } ( 1, 2 );

print Dumper \@li;

$VAR1 = [
          1,
          'X',
          2,
          'X'
        ];