Select Code to Download

my @line_array = <FILE>;

shift(@line_array);
pop(@line_array);

...
...
...
for my $arr_ref (@sorted) {
   print "@$arr_ref\n";
}