while( <FILE> } {
    my( @attributes = unpack '...', $_;
    my $object = Siesmic::Line->new( @attributes );
    
    ## Now what?
    ## ???

##</code><code>##

    ### IN A HASH OF COURSE!!!!
    $lines{ $object->getLineNo() }{ $object->getStnNo() } } = $object;
}