my $s = $sorter->[$offset];
print "$_\n" for sort $s @list;