Select Code to Download

use Data::Dumper;
my @r = ( 
...
[ 2, 3, 5, 3 ]
[ 5, 3, 5, 5 ]
[ 5, 5, 1, 5 ]

for my $i (0..$#r) {
  my $p = $i + 1;
...
    last;
  }
}