...
sub yyy
{
    my $func = shift;
    $func->();
}

yyy( sub { xxx("foo", 42) } );