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

{   package foo;
    my $name = 'hallo';
    my $subref = sub {
        print "Hallo, Welt!\n";
    };
    no strict 'refs';
    *{'main::'.$name} = $subref;
}

package main;
hallo();