#!/usr/bin/perl

package Foo;

BEGIN{
    for('foo','bar'){
        *$_ = sub{foobar(@_)};
    }
}

sub foobar{
    print $_,"\n" for @_;
}

package main;

Foo::foo('hallo');
Foo::bar('Opi');