Select Code to Download

 #!/usr/bin/perl
my @rows = ();

...
print map {$_->[2] . "\n" } sort { $a->[2] <=> $b->[2]} @rows;
#print map {$_ . "\n" } sort { $a->[2] <=> $b->[2]} @rows;
exit

 for($i = 0; $i <4; $i++) {
print map {$_->[$i] . "\n" } sort { $a->[2] <=> $b->[2]} @rows;