my $name = "foobar";
my $sub = sub {
  blabla
};
no strict 'refs';
*{$name} = $sub;
foobar();