$seq{$chr} = join ("",$_);