in reply to Get identical elements and index from 2 Arrays in Perl

Crossposted to StackOverflow.

It's considered polite to inform about crossposting to prevent people not attending both sites from unnecessary work (i.e. solving a problem already solved at the other side of the internets).

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

In Section Seekers of Perl Wisdom