Statement Perl

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