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