Select Code to Download

#! /usr/bin/perl -l

...
for (map { $_-1, $_, int 1.2*$_ } map $_->[0], @G) {
    print "v2r($_) == @{[v2r($_)]}";
}