#!/usr/bin/perl

use strict;
use warnings;

my ($num, $let, $foo);
$num = "z";
$let = $num;
# $foo = 1 + $num;  # this does not modify $num
$num++; $let++;
print "num:$num let:$let\n";

__END__