sub mychomp {
    for (@_){
           $_ is iterable && mychomp it
        || $_ is a scalar ref && try to chomp its scalar
        || $_ is not any other reference && chomp it
    }
}

##</code><code>##

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$