#!/usr/bin/perl -w
use strict;

my @vars = qw(one two three);

package main;

my ($one, $two, $three) = (1 .. 3);

{
    no strict 'refs';
    foreach my $var (@vars) {
        *{"test::$var"} = $var;
    }
}

package test;

print "One: $one\tTwo: $two\tThree: $three\n";