compare 2 tables of mysql in perl

Select or download this

Table1
-----------
...
dis
cus
ion

Select or download this

Table2
------------
...
mouse
discussion
computer

Select or download this

mou is present in mouse
com is present in computer
dis is present in discussion
cus is present in discussion
ion is present in discussion

Select or download this

my $check =dbh->prepare("SELECT Table.C1, Table.C2 FROM Table1, Table2
+ WHERE Table.C1 LIKE Table.C2");
$check->execute();
...
{
echo $row['Table1.C1'].is.present.in.$row['Table2.C2'];
}

Select or download this

Cant't call method "execute" on an undefined value at ./filename line 
+123

Select Code to Download