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

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