my @array = map { do_stuff_with($_); $_ } 1 .. 5000;