my @numbers = map {[reverse split '']} qw(109156 114); #### @$_ > $maxDigits and $maxDigits = @$_ for @numbers;