Loop Control Statements
#!/usr/local/bin/perl -w for ($x=1; $x <= 10; $x++) { print $x . ", "; } print "\n";