Select Code to Download

use Spreadsheet::Read;
my %H1;
...

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