use strict;
use warnings;
use diagnostics;

use Data::Dumper::Simple;

my %stats = (
	'stdev' => '42.5371995604396',
	'pct_10' => 0,
	'variance' => '668.660986666667',
	'sterr' => '17.3657390016697',
	'median' => '-130.925',
	'pct_90' => '94.4',
	'average' => '131.503333333333'
);
print Dumper(%stats);

my %rounded_stats = ();
foreach my $stat (keys %stats){
 	#print "$stat $stats{$stat}\n";
 	my $round = sprintf("%.2f", $stats{$stat});
 	$rounded_stats{$stat} = $round;
}

print Dumper(%stats);
print Dumper(%rounded_stats);