#!/usr/local/bin/perl
use strict;
use warnings;

my($var1, $var2);

$var1 = 9;
#$var2 = $var1++;

print "$var1\n";
print "$var2\n";

$var1 = 9;
$var2 = ++$var1;

print "$var1\n";
print "$var2\n";