my $rnd=Math::Round::Var->new (0.001); $frsmt=@mtbf_data[3]; $rounded_percent_frsmt=$rnd->round($percent_frsmt);