sub thing{
    my( $arg) = @_ ? @_ : $_;
    ...
}