I think I my have answered my own question
use Image::ExifTool qw(:Public);
use Data::Dumper;
$file='d:/60486581538__715F9238-09E5-4806-8146-0626DAFB0E36.JPG';
$ExifTool = new Image::ExifTool;
#$ExifTool->Options(DateFormat => '%Y-%m-%d');
$info = $ExifTool->ImageInfo($file,'SubSecCreateDate','LensModel');
#$info = $ExifTool->ImageInfo($file);
print "INFO: $info\n";
# Setting Variable Reading Hash Method
$createdate=$$info{'SubSecCreateDate'};
$lens=$$info{'LensModel'};
print "\nHASH Method\n";
print "\tCreate Date: $createdate\n";
print "\tLens Model: $lens\n\n";
# Setting Variable using ExifTool GetValue Method
$createdate2=$ExifTool->GetValue('SubSecCreateDate');
$lens2=$ExifTool->GetValue('LensModel');
print "ExifTool GetValue Method\n";
print "\tCreate Date2: $createdate2\n";
print "\tLens Model2: $lens2\n\n";
print "Dumping Variable\n\t";
print Dumper($info);
exit;
D:\>metadata.pl
INFO: HASH(0x2b91f48)
HASH Method
Create Date: 2020:03:02 13:16:55.336-05:00
Lens Model: iPhone 7 back camera 3.99mm f/1.8
ExifTool GetValue Method
Create Date2: 2020:03:02 13:16:55.336-05:00
Lens Model2: iPhone 7 back camera 3.99mm f/1.8
Dumping Variable
$VAR1 = {
'SubSecCreateDate' => '2020:03:02 13:16:55.336-05:00',
'LensModel' => 'iPhone 7 back camera 3.99mm f/1.8'
};
D:\>