my ($x,$y);
print "Same!" if $x==$y;
__END__
Same!