Select Code to Download

# data file is open to read on the FOO handle
my @lines = <FOO>;
...
my @ary;
push @{$ary[ substr( $_, 0, 1)]}, substr( $_, 1) for @lines;
@ary = map {[ reverse sort @$_ ]} @ary;