#!/usr/bin/perl -w
{       my @s=("This works\n");
	sub works { shift @s}
}
#This works..
print &works;

# Error!!
# This gives an error of Use of uninitialized value in print at ....
print &doesnt_work;
{       my @r=("Should this work..\n");
	sub doesnt_work{ pop @r;	}
}