Perl loops

Here are some quicky perl loops

for(my $i=0; $i<$limit; $i++) {
print $i;
}

while($i<$limit) {
print "$limit\n";
}

for $i (@array) {
print "$i\n";
}

until($i > 100) {
print $i;
}