use warnings;
use strict;

my $filename = 'globalSort.txt';
open my $fh, '<', $filename or die "$filename: $!";
chomp( my $codestr = do { local $/; <$fh> } ); # slurp
close $fh;

my $sort = eval "sub $codestr"
	or die "Failed to parse code from $filename: $@";
print "Sorting with code: $codestr\n";

my @data = (7,3,9,1);
print " Input: @data\n";
my @sorted = sort $sort @data;
print "Output: @sorted\n";

__END__

Sorting with code: { $a <=> $b }
 Input: 7 3 9 1
Output: 1 3 7 9