Select Code to Download

my %data;

push @{$data{$linename}}, { station => $station, coords => $coords, ea
+sting => $easting, northing => $northing, elevation => $elevation };

for my $linename ( keys %data ){
  for my $entry ( @{$data{$linename}} ){
    print "$linename: @{$entry}{qw(station easting northing elevation)
+};
  }
}