#!/usr/bin/perl

use strict;
use warnings;

my %global_hash;

sub1();
sub2();

sub sub1{
    $global_hash{test} = 'world'M
}

sub sub2{
    print $global_hash{test};
}