#!/usr/bin/perl

use foo;

@array = qw(1 2 3 4);