Ok after reading some old posts i have tried the
following, but alas it did not work

open (LIST1, $list1) or die "cannot open $list1";
open (LISt2, $list2) or die "cannot open $list2";

while (<LISt1>)
{
#get all the variables for line from LIST1

my ($c,$d,$e,$f,$g,$h) = split(/"\t"/);
$flag=0; #reset the flag

my %axepar_list = ();
while (<AXEPAR>)
{
($a, $b) = split(/"\t"/);
$axepar_list{$a} = $b;
}

if (exists $axepar_list{$c})
{
$block_name = $axepar_list{$c};
print "$block_name $d $e $f $g\n";
$flag=1;
}
}

close AXEPAR;
close LASLIST;