Calling the test harness

my @tests = ( [ 'Basic', \&fib_basic ], # I might just be adding another couple here, maybe. ); my $n = 22; foreach (@tests) { my ($title, $sub) = @$_; say $title; time2 sub { $result = $sub->($n) }; }