#!/usr/local/bin/perl 

use strict;

open (FILE1,"Largedatafile.txt") || die "Can't open file File1 $!\n";
open (FILE2,"Smalldatafile.txt") || die "Can't open file File2 $!\n";
open (FILE3,"addressfile.txt") || die "Can't open file File3 $!\n";

  while(<FILE2>)
  {
  my($var1, $var2, $var3,$var4,$var5)=split(/\t/, $_);
     
       while(<FILE1>)
       {
       my($id1, $id2,$id3)=split(/\t/,$_);
        
         while(<FILE3>)
         {
                my($citycode, $statecode,$zipcode)=split(/\t/,$_);
        
                 if (($id3 ne $var3) and ($citycode ne $var5))
                 {
                        print "$var1\t$id1\t$zipcode\n";    
                        }
         }  
       }
  }

close (FILE1);
close (FILE2);
close (FILE3);