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

my($var1, $var2);

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

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


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

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

#$var1 = $var1 + 1; 10
#$var2 = $var1; 10

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