#! /usr/bin/perl -w

use strict;
{
	our %hash;
	$hash{ 1 } = "OK";

	&routine;
}

sub routine
{
	print $hash{ 1 };
}