#!/usr/bin/perl

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

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

my @lon = split(/\./, $declon);
my @lat = split(/\./, $declat);

$lon[1] = substr($lon[1], 0, 6);
$lat[1] = substr($lat[1], 0, 6);

my $lat = join('.', @lat);
my $lon = join('.', @lon);

print "$lat\n";
print "$lon";