use warnings; use strict;

    my $count=0;
    my @list1  = ("A", "B", "C", "D", "E", "F");
    my @list2 = ("AXE", "DOG", "CAT", "FOOD", "TRANCE");

    for (my $i=0; $i<scalar(@list1); $i++){	
      	for (my $j=0; $j<scalar(@list2); $j++){
		my $word = $list2[$j];	
	   	my $letter = $list1[$i];
			
		if ($word =~ /$letter/){
			$count++;
		}
	}	
	print "$count \n";
    }