#!/bin/perl

@array1 = ("A2","A5","C1","G0","T3","T4");
@array2 = ("A2","A3","A5","G1","G0","G4");

#@array1 = sort { $a <=> $b } @a1;
#@array2 = sort { $a <=> $b } @a2;



for($i = 0; $i <= $#array1; $i++){


  while ($array1[$i] eq $array2[$i]){  
    
    print $array1[$i]."\n";
      last;
  } 

}