Select Code to Download

while( <FILE> } {
    my( @attributes = unpack '...', $_;
...
    
    ## Now what?
    ## ???

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