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

my $var;

$var = 9;
$var += 5;

print "$var\n";

$var /= 2;
print "$var\n";