use Data::Dumper;
my $var = 2;
my $str = "2abc";
my $g = $var eq $str;

print Dumper $g;