in reply to limiting decimal points

You can use printf

printf("%0.4f ", $_) for (.0069874, .0012365, .98752115, .0002332);

[download]

In Section Seekers of Perl Wisdom