use strict;
use warnings;

my @contents = sort <DATA>;
print @contents;

__DATA__
At the moment, due to the small file size, sort time is unimportant.
At some point, when I get to that stage, the sorted data will be reused.
I tried your code, and it seems quite simple, hence, efective.
BUT, It runs with no errors, but nothing prints.

##</code><code>##

At some point, when I get to that stage, the sorted data will be reused.
At the moment, due to the small file size, sort time is unimportant.
BUT, It runs with no errors, but nothing prints.
I tried your code, and it seems quite simple, hence, efective.

##</code><code>##

use strict;
use warnings;

my @contents = map { $_->[0] }
  sort { $a->[1] cmp $b->[1] }
  map { [$_, extractColumn (1, $_)] }
  <DATA>;
print @contents;


sub extractColumn {
    my ($columnIndex, $line) = @_;
    my ($key) = $line =~ /(?:[^,]*,){$columnIndex}([^,]*)/;
    return $key;
}

__DATA__
At the moment, due to the small file size, sort time is unimportant.
At some point, when I get to that stage, the sorted data will be reused.
I tried your code, and it seems quite simple, hence, efective.
BUT, It runs with no errors, but nothing prints.

##</code><code>##

BUT, It runs with no errors, but nothing prints.
I tried your code, and it seems quite simple, hence, efective.
At the moment, due to the small file size, sort time is unimportant.
At some point, when I get to that stage, the sorted data will be reused.