Select Code to Download

foreach $i(0..$#{$rows})
{
...
    $rows->[$i][$j];
   }
}

while ($i<=2) 
{
...
my $rd = "$rows->[$i][0]";

print "$rd\n";