#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Math::Round;
my $var = '0.05499999999999999334';
print nearest(.01, $var);
print round($var);