while (<DATA>) {
    chomp;
    my ($head, $seq) = split / /;