my $a;
$a = "Mary had a little lamb"; # $a contains a string
$a = 2001;                     # $a now contains a number
$a = '2001';                   # $a STILL contains a number
$a .= 'AD';                    # $a is a string once more :)