my $thisYear = 2005;
my $yearRef = $galaxy{ $sSystem }{ $planet }{ $thisYear };

for my $year ( keys %{ $yearRef } ) {
    for my $lat ( keys %{ $yearRef->{ $year } } ) {
        for my $long ( keys %{ $yearRef->{ $year }{ $lat } } ) {
            printf "$sSystem.$planet.$thisYear.$lat.$long:%s\n", 
                $yearRef->{ $year }{ $lat }{ $long };

            $yearRef->{ $year }{ $lat }{ $long }++;
        }
    }
}