...
while (<DATA>) {
	$hash{">$1"} = $2 if s/[>\n]//g && /^(SEQ\d+)(.*)/;
}
...