Select Code to Download

use strict;
use warnings;
...

my @sorted = fieldsort( ['1n'], @data);
print(Dumper(\@sorted));