Win8 Strawberry 5.8.9.5 (32)  Mon 04/19/2021  5:08:21
C:\@Work\Perl\monks
>perl -Mstrict -Mwarnings

use Data::Dumper;

my $got_data = {
         'ref' =>
{
 'abc_sia_%version1.ref' =>
{
 'func' => [
            {
             'envname' => 'test01',
             'objectdir' => '/home/pv66',
             'base' => 'default_771'
            }
           ]
}
}
};

my $want_data = $got_data->{'ref'};

print Dumper $want_data;

^Z
$VAR1 = {
          'abc_sia_%version1.ref' => {
                                       'func' => [
                                                   {
                                                     'base' => 'default_771',
                                                     'objectdir' => '/home/pv66',
                                                     'envname' => 'test01'
                                                   }
                                                 ]
                                     }
        };