Here's a perlish way to write that snippit

use strict;
use warnings;

my @foo = (0, 1, 0);
print " \@foo: @foo\n";

$_ = !$_?1:0 for @foo;
print "!\@foo: @foo\n";
[download]