Other ways:

• If you can use empty strings instead of zeros in the output list (i.e., you're not doing arithmetic with the elements of the output),
  then either  map { $_ > 0 } or just  map $_ > 0, (note the terminating comma) will do the trick:

  c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
  "my @x = map $_ > 1, -3 .. 3;
   dd \@x;
  "
  ["", "", "", "", "", 1, 1]
  [download]

• If you gotta have 0s,  || or  or will do:

  c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
  "my @x = map { $_ > 1 or 0 } -3 .. 3;
   dd \@x;
  "
  [0, 0, 0, 0, 0, 1, 1]
  [download]

  (Note that  map $_ > 1 || 0, -3 .. 3 would also work, but  map $_ > 1 or 0, -3 .. 3 will not. Can you say why? This is one reason why some Best Practices recommend avoiding the  map EXPR, LIST form of map.)
• And of course, there are other ways...