in reply to Re^2: understand and prevent 'Out of memory!' during sub recursion
in thread understand and prevent 'Out of memory!' during sub recursion

$_[0][0] only checks the first array, i.e. it fails if the first array is not the longest one. grep, on the other hand, checks all the arrays.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

[download]

In Section Seekers of Perl Wisdom