我是Perl的初學者，如何前進？請檢查代碼

Question

這是我寫的代碼，我無法得到這個角色，我用1

#!/usr/bin/perl 
# your code goes here 

for($i =99; $i >= 0; $i--) 
{ 
    print "$i bottles of beer on the wall, $i bottles of beer 
Take one down and pass it around, $i bottles of beer on the wall.\n"; 
    } 

Answer 1

for ($i = 99 ; $i > 0;) { 
    print "$i bottles of beer on the wall, $i bottles of beer 
Take one down and pass it around, ", --$i, " bottles of beer on the wall.\n"; 
} 

降低沒有啤酒的我把它作爲一個練習，你切換從「瓶」到「瓶」，當你到達最後一個...