#!/usr/bin/perl

use strict;
use warnings;

my $declon = -88.9999999999999999999;
my $declat = 44.1111111111111111111;

printf("$declon\n");   # -89
printf("$declat\n");   # 44.1111111111111

printf("%.6f\n", $declon);   # -89.000000
printf("%.6f\n", $declat);   # 44.111111