$ perl -le 'print join(",", grep{$_ % 2==0 } 0 .. 32)'
0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32
$
$ perl -le '@even = grep {$_ % 2==0 } (0 .. 32); print join ",", @even'
0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32
$ perl -le 'for $num (0 .. 32 ){
> if($num % 2 == 0){
> push @even, $num
> }
> }
> $out = join ",", @even;
> print $out'
0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32