Help for this page
@prime = (1,2); map { push(@prime,$_) if (($_ % 2) != 0) } (2 .. 100);
my @prime=(1,2,grep $_%2, 2..100);