Select Code to Download

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

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