++.pl

use warnings;
use strict;

use feature 'say';


# Incrementing undefined

my      $undefined        ;
        $undefined ++     ;
say     $undefined        ;  #  1

my      $another_undefined;
     ++ $another_undefined;
say     $another_undefined;  #  1


# Incrementing strings

my      $string = 'y'     ;
say     $string++         ;  #  y
say     $string++         ;  #  z
say     $string++         ;  #  aa

my      $string_2 = 'zZz' ;
        $string_2 ++      ;
say     $string_2         ;  #  aaAa       (Note upper and lower case)