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