AB000000026JHAHKDFK
AB000000028JHKHKHKJ
AB00000003033AFSFAS
AB000000030HJHKH80J
AB000000030LOIKJUJ8        
AB0000000324446KJHK      

##</code><code>##

AB000000026JHAHKDFK
AB000000028JHKHKHKJ
AB00000003033AFSFAS
AB0000000324446KJHK      

##</code><code>##

use DBI;
use Time::localtime;
use File::Compare;

use XML::Simple; # qw(:strict);
use Data::Dumper;

$user = "213256";

@fileRead = glob '/export/home/$user/Tests/Match/dummy2*';

my @array1;
foreach $file (@fileRead){

  open(FILE, $file) or die "Can't open `$file': $!";
  @lines = <FILE>;
  close FILE;

  foreach $line ( @lines ) {
        $str = $line;

        $var = substr($str, 10, 2);
        push(@array1, "$var");
        my @unique = grep { ! $seen{$_}++ } @array1;

  }
......


}