let me be frank, I thought using (logical and) can be buggy, until when you said it works as an if, that is when I REMEMBERED (logical and) would actually short-circuit, I got my confusion compounded because I haven't reached to Perl references yet so I was wondering.In fact I was wondering on many things, it took you about 10 minutes to reply my first query and with such neat neat code and it took me 3 hours almost to work out a code of my own, so you know I was baffled as to when I could get better, but I am not ashamed of it, since I am still learning. I am motivated that I got to know Perl Monks, you guys are so helpful and caring too... As for the bug, I could not notice nothing cuz some of the concepts you employed, I am yet to reach them like using square brackets inside map{} as in
my @numbers = map {[reverse split '']} qw(109156 114);
and the other two lines, this is why I am strongly intent on coming back to this code every other while to measure my progress.
Excellence is an Endeavor of Persistence.
Chance Favors a Prepared Mind