$seg{$lname} = { 'header'   => \@hdr,
                 'stations' => \%stn, };

##</code><code>##

# time to save stn and headers:

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