$s='1' ;
while($s<=100){
print $s;
$s++;
}