You never assign anything to $line, $date, $orig, $desg and $body before you use them in the following:

    if ( $line =~ /(\d+\-\d+\-\d+\s\d+\d+\d+\+)/ ) { $
+date = $1; }
    else { $seqs{$sequence} = "$date;$orig;$desg;$body"; }
[download]

You also set $date without ever using it.