... my @f; push @f, [$_+2, $_+1] for 0 .. 5; ...