use warnings;
use strict;

use Data::Dump qw(dd);

three();

sub one {
    return {a => 1, b => 2};
}
sub two {
    return one();
}
sub three {
    dd two();
}