#!/usr/bin/perl
# benchmark_test_strict.pl

use Benchmark;
use strict;

my @test_array;
open(IN, "testfile");
while (<IN>) {
	chomp;
	push(@test_array, $_);
}
close(IN);

my $test_ref = \@test_array;

my $t0 = timeit(2000, sub { my @var_results = sort {$a cmp $b} @test_array; });
my $t1 = timeit(2000, sub { my @ref_results = sort {$a cmp $b} @$test_ref; });
my $td = timediff($t0, $t1);
	
print "\n";
print "normal var (t0)\n";
print "===============\n";
print timestr($t0), "\n\n";

print "reference (t1)\n";
print "==============\n";
print timestr($t1), "\n\n";

print "difference (t0, t1)\n";
print "===================\n";
print timestr($td), "\n\n";