#!/usr/bin/env perl

use strict;
use warnings;

print "enter user name to add\n";
my (@users,@exusers,%adds,$u);
chomp (@users = map {lc} <>);
print "enter user names to mirror\n";
chomp (@exusers = map {lc} <>);

foreach $u (@users) {
   $adds{$u} = qx(ls /home/$_/.bash_profile) for @exusers;
}

use Data::Dumper;

print Dumper \%adds;
#####################

$ perl foo
enter user name to add
kate
dan
enter user names to mirror
doug.smith
$VAR1 = {
          'kate' => '/home/doug.smith/.bash_profile
',
          'dan' => '/home/doug.smith/.bash_profile
'
        };


$ perl foo
enter user name to add
kate
dan
enter user names to mirror
doug.smith
test
$VAR1 = {
          'kate' => '/home/test/.bash_profile
',
          'dan' => '/home/test/.bash_profile
'
        };