my @foo = map { sprintf "% 4u", $_ }
          grep { is_prime($_) }
          0 .. 1000;