while <FH> {
    my @$record = split $delimiter, $_;
    push(@unsorted, $record);
}
@sorted = sort { $b->[0] cmp $a->[0] } @unsorted;