#!/usr/bin/perl

use strict;
use warnings;

our $var = 5;

increment_me($var) for 1..10;
decrement_me($var) for 1..5;
print_me($var);

sub increment_me {
	$var = shift;
	$var++;
}

sub decrement_me {
	$var = shift;
	$var--;
}

sub print_me {
	$var = shift;
	print "$var\n";
}