Help for this page
foreach my $i (0..$#$types) { if ($i && $i == $#$types) { ... } elsif ($i) { $sentence .= ', '; }
for(@$types) { if($_ eq $types->[-1]) { $sentence .= $matches>1 ? ' and ' : ' or ' } else { $sentence .= ', ' }