Select Code to Download

#!/usr/bin/perl
use strict;
...

is(join(":",grep { $_%2==0 } 1..6),"2:4:6","grep keeps order");
is(join(":",map { 1+$_ } 1..6),"2:3:4:5:6:7","map keeps order");