my %data;

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