$refsub = \&subfoo;
$refsub->('la')->('dee')->('da');

##</code><code>##


#! /usr/bin/perl -w

use strict;

sub_to_receive('123', \&sub_to_be_passed('xyz'));

sub sub_to_be_passed {
        my ($one) = shift;
        my ($two) = shift;

        print "One: $one\n";
        print "Two: $two\n";
}

sub sub_to_receive {
        my ($x, $sub_to_run) = @_;

        $sub_to_run->("lalala");
}