#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dumper;
use Carp;

my @sites;
open(my $ifh, '<', 'eclipse.txt') or croak($!);

# Skip header
for(1..5) {
    my $tmp = <$ifh>;
}   

while((my $line = <$ifh>)) {
    chomp $line;
    next if($line eq ''); # Ignore empty lines

    my %entry;

    $line =~ s/\ +/ /g; # Collapse spaces

    if($line =~ /^(.*?)\s[-\d]/) {
        $entry{location} = $1;

        # Remove location name
        $line =~ s/^.*?\s([-\d])/$1/;

        # Split along spaces
        my @parts = split/\ /, $line;

        foreach my $name (qw[long1 long2 lat1 lat2 elevation h m s PA Alt]) {
            $entry{$name} = shift @parts;
        }

        push @sites, \%entry;
    }
}   

close $ifh;

print Dumper(\@sites);