gistfile1.perl

#!/usr/bin/perl
use strict;
use warnings;
sub meow (&);
my %h;
my $k;

meow {
	my $t : need_this;
	$t = {
		size =>  $h{$k}{size};
		used =>  $h{$k}(used}
	};
};