print ++$one, "\n" until $one == 10;

print "$_\n" for 1..10;

print join "\n", 1..10;

# or even the somewhat less clear:
s.$.$"=$/,@_=1\.\.10;qq<@_>.e&&print