$ perl -wle'use strict;
my $subref = sub { return 23 };
# zuweisung an symboltabelle
*{ foo } = $subref;
print foo();'
23