my $i = 0;
my $r2 = map {[ $r->[$i*2], $r->[$i++*2+1] ]}
         (0 .. $#{$r}/2 - 1);
    # or (0 .. scalar(@$r)/2 - 1)