*gSort = '';
my $sortname = 'gSort';
chomp(my $sort = `cat globalSort.txt` // '');
if ($sort) {
        *gSort = sub {$sort};
}

foreach my $t (sort $sort @data) {
      print "$t\n";
}