use Print qw (Print);
for (0..1000)
{
  Print "$_"," bottles of beer on the wall\n";
}