while(){ ($n,$b,$r)=split(/:/,$_); while($n--){print $b,"\n";$b+=int($b*$r*0.01)} }