#!/usr/bin/perl

use strict;

require MyLib;

my @global_variable = qw( a b c );
subroutine2( $global_variable[subroutine1()] );

#!/usr/bin/perl
# MyLib.pm
use strict;
sub subroutine1 { return rand(3); }
sub subroutine2 { print shift; }