my $i;

$i = 0;
print "\nPost-increment: ", $i++, "\nNow equals: ", $i, "\n\n";

$i = 0;
print "\nPre-increment: ", ++$i, "\nNow equals: ", $i, "\n";