my $hashref = sub {
    my %list = (1 => 'test');
    return \%list;
}->();

print $hashref->{1},"\n";