Select Code to Download

sub mychomp {
    for (@_){
...
        || $_ is not any other reference && chomp it
    }
}

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