for $i (2..100){
	$p=0;
    for $j (1..$i){
        if($i % $j==0){
            $prime_[$p] = "$j";
            $p++;
        }
        if ($prime_[1] == $i){
            print "$i is a primer number\n";
        }
    }
}