for (my $i = 0 ; $i<scalar @line; $i++)
  {
	 if ($line[$i] =~ /^>/)
	 {
	   	$current_subject = $line[$i];
		  chomp ($current_subject);
		  push (@filtered_subjects, $current_subject);
	 }
  }
  my @element;