#!/usr/bin/perl

use strict;
use warnings;
use Math::Round;

my @array = (7.1, 8.4, -2.4, -2.6, -8.3, 16.7, -34.8, -12.9, 456.2);
foreach( @array ){
   print $_." => ";
   my $new = nearest(5, $_);
   print $new."\n";
   $_ = $new;
}