#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

{
  my @variables = qw/User Password Url Prefix/;

  foreach my $module ( qw/Foo Bar/ ) {

    eval "use ABCXYZ::$module";

    #  Foreach loop for illustration only .. could be replaced
    #  with a map ..

    my %values;
    foreach my $var ( @variables ) {

      $values{ $var } =
        eval '$' . join ( '::', 'ABCXYZ', $module, $var );
    }

    #  Call subroutine with values hash here ..
  }
}

##</code><code>##

package ABCXYZ::Foo;

use Exporter;
our @Export = ( $User $Password $Url $Prefix );

our $User     = 'Joe';
our $Password = 'Secret123';

our $Url    = 'www.example.com';
our $Prefix = 'EX';

1;