#!/usr/bin/perl
# array.pl
use warnings;
use strict;

our @arr;
our $x;
sub f {
  print "$_[0] $x @arr\n";
  }
sub g {
  local $x="squidward";
  $arr[1]=3333;
  f($_[0]);
  }
$x="sponge";
$arr[0]="bob";
$arr[1]=1111;
{
  local $x="patrick";
  f(0);
  print "1 $arr[0]\n";
  print "2 $arr[1]\n";
  {
    local $x="gary";
    f(3);
    local @arr;
    $arr[0]=2222;
    f(4);
    g(5);
    {
      local $x="big tex";
      f(6);
    }
  }
}
f(7);