in reply to How to Pass more than one file in perl MY function

Crossposted to StackOverflow.

It's considered polite to inform about crossposting, so that people not attending both sites don't waste their efforts hacking a problem that has already been solved at the other end of the internets.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In Section Seekers of Perl Wisdom