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