my @x = map { if ($_ > 0) { $_*2 } } (-2 .. 2);
use Data::Dumper;  print Dumper \@x;

__END__
$VAR1 = [
          '',
          '',
          '',
          2,
          4
        ];