in reply to Question about parsing columns when using Text::CSV

Use sprintf to truncate the numbers. 
my @columns = map { sprintf("%.3f", $_) } $csv->fields();

[download]
should work. untested
Boris

In Section Seekers of Perl Wisdom