#!/usr/bin/perl

use Devel::Size 'total_size';

my %struct = ("key1" => ["bill","ben"],
             "key2" => ["dave","jen"]);

print "total size of %struct - ", total_size(\%struct),"\n";