@a = (0,1,2,3,4,5);

sub pr {
	print "sub \$a[2]=$a[2]\n";
}
print "\$a[2]=$a[2]\n";
pr;

{
  $[ = 1;
  print "\$a[2]=$a[2]\n";
  pr;
}

print "\$a[2]=$a[2]\n";
pr;