@prime = (1,2);
map { push(@prime,$_) if (($_ % 2) != 0) } (2 .. 100);

##</code><code>##

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