my $sortscheme = sub ($$) {
    my @fieldsa = split(" ", shift);
    my @fieldsb = split(" ", shift);
    # ...
};