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