#! /usr/bin/perl use strict; use warnings; use Test::More tests => 2; my %result; $result{test1}->{rc} = is( $result{test1}->{got} = 1 + 1, $result{test1}->{expected} = 2, "one plus one is two", ); $result{test2}->{rc} = is( $result{test2}->{got} = 1 + 1, $result{test2}->{expected} = 11, "one plus one is two", ); require Data::Dumper; print Data::Dumper->new( [ \%result ], [ '*result' ] )->Dump();