in reply to calling subs using references.

At a quick glance you need to change the placement of parentheses in your last line.

$tes->($rf->{test1});

[download]

Cheers,

JohnGG

In Section Seekers of Perl Wisdom