sub get_file {    #to read from a file
    return <<SEQUENCE;            #return the string sequence

SEQUENCE
}

##</code><code>##

Reading a file...
Use of uninitialized value $record_type in hash element at noname1.pl line 53.
Parsing a file...
Getting data...
Use of uninitialized value $record_type in hash element at noname1.pl line 59.
Use of uninitialized value $seqres in split at noname1.pl line 194.
Use of uninitialized value $lastchain in hash element at noname1.pl line 222.

##</code><code>##

        next if $line !~ /\S/;

##</code><code>##

    return if ! defined $seqres || $seqres !~ /\S/;