Select Code to Download

my @unsorted_data;
while (<DATA>) {
...

print("(($_->[0] $_->[1]) ($_->[2] $_->[3]))\n")
   foreach @sorted_data;