After pre-increment: ++$a * 2
#!/usr/bin/perl -w $a = 4; $b = 10; print "Our variables are ", $a, " and ", $b, "\n"; $b = ++$a * 2; print "Now, we have ", $a, " and ", $b, "\n";