#!/usr/bin/perl

use strict;
use warnings;
use foo;

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