Looks like I've been getting the correct responses in the firstplace. I'm only starting to use and pass references plus I don't know Lotus Notes at all ... ingredients for confusion. I'm posting my discoveries for anyone who cares.

    foreach my $embeddedDoc ( $DocumentBody->{EmbeddedObjects} ) {

        print ref($embeddedDoc) if ( ref($embeddedDoc));
        print "\n";
        #reply->  ARRAY
        foreach my $arryele ( @{$embeddedDoc } ) {
           print "Array Element: $arryele\n";
           #reply-> Array Element: Win32::OLE=HASH(0x183a66c)
           print ref($arryele) if ( ref($arryele));
           print "\n";
           #reply-> Win32::OLE

           #I am so stupid, $arryele is a referenced object that has b
+een
           # blessed into a package ... it says so in the documentatio
+n for ref!

           my @array = $arryele->{Source};
           print "@array\n";
           # This returns the filename of the attachment

           my @array = $arryele->{Type};
           print "@array\n";
           # This returns some numeric value, EMBED_ATTACHMENT and
           # RICH_TEXT must be constants within Lotus Notes!  It doesn
+'t
           # return text.  I've been away from MS-style object program
+ming
           # too long ... that's a good thing right?

           # 1454 - File attachment 
           # 1453 - Embedded document -- Notes internal format?

            #foreach my $whatisit ( @{$arryele} ) {           
            #    print "arryele: $whatisit\n";
            #}
            # This won't work, Not an ARRAY reference at notesmail.pl 
+line 85


               #foreach my $hashval ( keys %{$arryele} ) {
            #    print "$hashval = $arryele->{$hashval}\n";
            #}
            # This would never work since it's not a hash as I origina
+lly thought

        }
[download]