#! perl -slw
use strict;
use Data::Dump qw[ pp ];

my %records;
until( eof( DATA ) ) {
    my %record;
    ## put the exon number inside the record
    ( $record{ exon } ) = ( <DATA> =~ m[(\d+)] ); 

    my $seqs = 1;
    my $line = <DATA>;
    if( $line =~ m[(\d+) different hits] ) {
        $seqs = $1;
        $line = <DATA>;
    }

    ( $record{ gene_id } ) = ( $line =~ m[GI:(\d+)] );

    ( $record{ Nm_id } ) = ( <DATA> =~ m[(NM_\d[\d]+)] );

    ## save the snoRNA text...
    chomp( my $snoRNA_key = <DATA> );

    for( 1 .. $seqs ) {
        my $query = [ split ' ', <DATA> ]; shift @$query;
        scalar (<DATA>);
        my $sbjct = [ split ' ', <DATA> ]; shift @$sbjct;
        push @{ $record{ seqs } }, { query => $query, sbjct => $sbjct };
    }

    chomp( $record{ gene_name } = <DATA> );

    chomp( $record{ web_link  } = <DATA> );

    ## And use it as the primary key in the main hash
    push @{ $records{ $snoRNA_key } }, \%record;
}

pp \%records;

__DATA__