my $x= 3;
my $y= "3";
print '$x and $y have the same value'
    if  $x eq $y;