#!/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 ..
  }
}