# make call my $caller = get_sub(...); # extract subrefs from the returned hash ref my @subrefs = @{$caller->{subrefs}}; # push returned subs onto call stack push(@callstack,@subrefs);