#!/usr/bin/perl

use strict;

sub subroutine1 { return rand(3); }
sub subroutine2 { print $global_variable1; }
sub subroutine3 { print $global_variable2; }
sub subroutine4 { print $global_variable3; }