sub trigger{print "Triggered: ",map {defined $_ ? " $_" : 'UNDEF'}@_,"\n"}