use strict;
use warnings;
use Data::Dumper;

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

print Dumper \@li;

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