Select Code to Download

my (@new_dat) = ();
foreach my $line (@loaded_data) #-- loop thru all data
...
   push(@new_dat, $line);
  }
}