Help for this page
use Algorithm::Loops qw( NestedLoops ); ... foreach my $val (@indices) { print($val\n") ]
use Algorithm::Loops qw( NestedLoops ); ... print("$val\n"); }