use Spreadsheet::Read;
my %H1;
my @filename_list = qw(D.xls E.xls);
for my $filename (@filename_list) {
   $H1{$filename} = ReadData($filename);
}

my $example = $H1{'D.xls'}->[1]->{A1}; # $example now has the value of 
                                       # cell A1 of sheet 1 of D.xls