my $callback = sub {
    my ($x, $y, $z) = @_;
    print $x, $y, $z, "\n";
};

$callback->(1,2,3);
$callback->(4,5,6);