sub compress ($) {
    my $val = shift;
    # Do stuff with $val
}

##</code><code>##

sub compress (\@@) {
    my $array = shift;
    my @values = @_;

    # Do stuff with the listref $array and the list of scalars @values
}