my @users = qw(BUU ccn Random_Walk cLive murugu jasper deibyz Limbic_Region bgreenlee BrowserUK fizbin aristotle jdporter elgon japhy);
my $palims = {'27103271037013711111111111111111116111111111111111111111166026111111111111111111111111111111111111111111111111111611111111111111111',,
                   '61111111111111111111111111111111111111111111111111116',
              'abcdefghijklmnopqrstuvwxyz12345678987654321zyxwvutsrqponmlkjihgfedcba',
                  'abcdefghijklmnopqrstuvwxyz12345678987654321zyxwvutsrqponmlkjihgfedcba',
              'ababcbabcdcbabcdedcbabcdefedcbabcdefgfedcbababcbabcdcbabcdedcbabcdefedcbabcdefgfedcba',
                  'edcbabcdefedcbabcde',
              'abcdedcbabcdefgfedcbabcdefghijklmnonmlkjihgfedcbabcdefghijklkjihgfedcbabcdefghijklmnoponmlkjihgfedcba',
                  'onmlkjihgfedcbabcdefghijklkjihgfedcbabcdefghijklmno'};
              
              
my $data={};              
              
cmpthese(0,
         {
            map { $_ => "test_palindrome('$_')" } @users
         }
);

for my $user (keys %{$data}) {
    for (keys %{$palim}) {
        $data->{$user}->{$_} eq $palim->{$_}
            or print "--$user failed to find $palim->{$_} in $_\n";
    }
}

sub test_palindrome {
    my $user = $_[0];
    my @this_test = keys %{$palims};
    $data->{$user}->{$_}=&$user($_) for @this_test;
}