#!/usr/local/bin/perl -w

    for ($x=1; $x <= 10; $x++)
    {
       print $x . ", ";
    }
    print "\n";