#! /usr/bin/perl
open (IF,"<tst1");
open (IF2,"<tst2");
my(@tst1) = <IF>;
my(@tst2) = <IF2>;
my ($i);
my ($j);
foreach $i (@tst1)
{
 chomp($i);
 print "$i\n";
 foreach $j (@tst2)
 {
 chomp($j);
 print "$j\n";
 `diff $i $j > /dev/null`;
 `echo $?`;
 }
}
close(IF);
close(IF2);