my @prime=(1,2,grep $_%2, 2..100);