#!/usr/bin/perl -w

use strict;

my $i = 5;
my $j = 100;

$i *= 10;

$j += $i;

$j **= 2;