my $seq=(keys %SEQ)[$j]   <--- missing semicolon