sub verification {
    my $value = shift; # accesses @_
    ...