if ($string =~ /^\>/){
  next unless $string =~/^\>/;
  push @array, $string;
 }