print $hash{AC}; 
print ' | ' 
print $hash{OS}; 
print ' | ' 
print $hash{OX}; 
print ' | ' 
print $hash{ID}; 
print ' | ' 
print $hash{GN}; 
print "\n"; 
my $split_after=50; 
while (length($seq)>$split_after){ 
  print substr($seq,0,50)."\n"; 
  $seq=substr($seq,$split_after);
  } 
print $seq."\n";