#!/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";

};