my $foo = "abc";
$foo++;
print "$foo\n";
----
abd

my $foo = 1.1;
$foo++;
print "$foo\n";
----
2.1