The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
$x = 1;
print "1\n";

$x = 2;
print "2\n";

$x = 3;
print "3\n";

$x = 4;
print "4\n";

$x = 5;
print "5\n";

$x = 6;
print "6\n";

$x = 7;
print "7\n";