#!/usr/bin/perl

use strict;
use warnings;

our @array = qw(1 2 3 4);

require foo;