Select Code to Download

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

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

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