my @latitude = split(/\./, $_[5]);
my $latstring = sprintf("%8s", ($latitude[0] . $latitude[1])) ;