# CS 1621 Fall 2005
# Perl version of the same "plus plus code"

     $i1 = 0;
     $j = $i1++;   $k = ++$i1;
     print "$j $k\n";
     $i5 = $i4 = $i3 = $i2 = $i1;
     $m1 = $i1++ + $i1++ + $i1++;
     $m2 = $i2++ + ++$i2 + $i2++;
     $m3 = $i3++ + ++$i3 + ++$i3;
     $m4 = ++$i4 + $i4++ + ++$i4;
     $m5 = ++$i5 + ++$i5 + ++$i5;
     print "$i1 $m1\n";
     print "$i2 $m2\n";
     print "$i3 $m3\n";
     print "$i4 $m4\n";
     print "$i5 $m5\n";

     $w = 0;
     print $w++, " ", $w++, " ", $w++, "\n";
     $w = 0;
     print ++$w, " ", ++$w, " ", ++$w, "\n";