Just as an afterthought, an even more succinct way is

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

which produces identical output.