Select Code to Download

#!/usr/bin/perl
while (<>) {
@tmp = split(/,/);
...
@sorted = sort { $a->[6] cmp $b->[6] } @failures;
for $array_ref ( @sorted ) {
print "@$array_ref \n" ;

#!/usr/bin/perl
while (<>) {
@tmp = split;
...
;}
                                        }
print "\n";