my @package = qw/ foo bar foo::bar /;

foreach my $package ( @packages ) {
    eval "package $package; reset 'a-z'";
}