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