az

file1.pl

#!/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}
        };
};

sub testo {
        my $value = shift;
        print;
        print;
        print;
        1;
}