my $adata =   q(athings1 athings2);
my $bdata =   q(bthings1 bthings2);
my $column = 0;
# ...

sort_func($column,$adata,$bdata);

sub sort_func
{
    my ($sortby,$astring,$bstring) = @_;
    # this function uses three arguments.
}