#!/usr/bin/perl -w
#
# tmp.pl
#

use strict;
use Test::Parser;

for my $key (keys %lists) {

    $lists{$key}->();
}