#        1         2        
#2345678901234567890123456
$\=z;$\++for z..perk;print