# time to save stn and headers:

$seg{$lname} = { header => [ @hdr ], stations => $stn };
@hdr = ()
$stn = undef;