while( my( $id, $seq ) = <$tiedFasta> ) {
       say "Sequence $id first 10 bases ", substr( $$seq, 0, 9 );    
]