#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd /;
use Data::Diver qw/ Dive /;


my $aref = [
    bless(
        {
            'name' => 'Name',
            'url'  => '/vmfs/volumes/guidvalue'
        },
        'VirtualMachineConfigInfoDatastoreUrlPair'
    )
];

dd( $aref );
my $href = Dive( $aref, 0 );
dd( $href );
my $name =  Dive( $aref, 0 , 'name' ) ;
my $url  =  Dive( $aref, 0 , 'url' ) ;
dd( "$name $url" );
__END__
[
  bless({ name => "Name", url => "/vmfs/volumes/guidvalue" }, "VirtualMachineConfigInfoDatastoreUrlPair"),
]
bless({ name => "Name", url => "/vmfs/volumes/guidvalue" }, "VirtualMachineConfigInfoDatastoreUrlPair")
"Name /vmfs/volumes/guidvalue"