use Data::Dumper;
my $str = "1";
print Dumper($str);  # $VAR1 = '1';
my $n = $str + 1;
print Dumper($str);  # $VAR1 = 1;