foreach ( my $i = 0; $i < 10 ; $i++ )
{
    print "\$i is $i\n";
}

##</code><code>##

for my $user (@names)
{
    print "Found user $user\n";
}