Select Code to Download

my @flat_data;

...
}

print "$_\n" for sort @flat_data;

---------- Capture Output ----------
> "c:\perl\bin\perl.exe" _new.pl
...
weight: 6000 intensity 3 Filename: FILENAME3

> Terminated with exit code 0.