Select Code to Download

my @Data = ();
while ( <FH> )
...
@sortedData =
   sort { $a->{ meth } cmp $b->{ meth } }
   @Data;