This is worse:

for (my $i = 0; $i < $#names; $i++)
    {
    print $names[$i];
    }
[download]