#!/usr/bin/perl -T
use warnings;
use strict;

require "./shared.pl";

print $testVal;

for my $i (0 .. (scalar(@testArray)-1))
{
  print $testArray[$i][0] . " = " .  $testArray[$i][1] . "\n";

};

##</code><code>##

use base qw (Exporter);
our @EXPORT = qw(testVal testArray);

my $testVal = "hello world\n";


my @testArray = (
                 ["Shadow",  "Blinky"],
                 ["Speedy",  "Pinky"],
                 ["Bashful", "Inky"],
                 ["Pokey",   "Clyde"]
                );

1;