my $foo = sub { print "Foo\n"; };
my $bar = sub { print "Bar\n"; };
my $x = $foo;
$x->();  # prints "Foo"
$x = $bar;
$x->();  # prints "Bar"