sub xxx
{
my $x1 = shift;
my $x2 = shift;
print "$x1, $x2\n";
}

##</code><code>##

..............
yyy( <xxx("hi", "i am here")> )
..............

sub yyy
{
<reference to xxx> = shift;
..........
call <xxx>;
}