my $x = sub {
  print 'x';
};
$x->();
#oder auch:
&$x;