Select Code to Download

my @sorted = sort { sorter($a, $b, $offset) } @list;

...
   my ($left, $right, $offset) = @_;
   ...
}

#!/usr/bin/perl
use warnings;
...
    my @arr_b = split /\|/, $right;
    return $arr_a[$offset] cmp $arr_b[$offset];
}