#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests=>2;

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");