While loop and counter
#!/usr/bin/perl $count=10; while ($count > 0) { print "$count...\n"; $count = $count -1; }