my $x = sub { print shift };

##</code><code>##

$x->('Hello world!');

##</code><code>##

#! /usr/bin/perl
use warnings;
use strict;

sub two_subs {
    return { first  => sub { return 'First: '  . shift },
             second => sub { return 'Second: ' . shift },
           }
}

print two_subs()->{first}->('A'), ' ', two_subs()->{second}->('B'), "\n";