#!/usr/bin/perl

open(F1, "/home/hallohallo/sales/seatTOT") || die "Can't open the file: seatTOT\n";
 while (<F1>)  {
   chop;
   push (@SEAT , $_);
   $newSEAT = substr(@SEAT, 394, 16);
   }
 close (F1);


open(F2, "/home/hallohallo/sales/CLIENTI_BKOM") || die "Can't open the file CLIENTI_BKOM\n";
 while (<F2>)  {
   chop;
   $PI{$_} = 1;
 }
 close (F2);

#$newSEAT = $newSEAT {substr($PI, 394, 16)};

 foreach $LL (@SEAT)   {
        if ($newSEAT{$LL} == 1) {
                print $LL . "\n";
        }
}




#print $SEAT[2000];

exit;
~