if ($line =~ /^\@/) {
        print $chro,"\n" if length $chro;
        $chro = $line;
    }