in reply to Decimal Removal

Rounding to the nearest integer ought to be done with sprintf: 
    my $rounded = sprintf "%.0f" => $not_rounded;

[download]

Abigail

In Section Seekers of Perl Wisdom