#!/usr/bin/env perl use strict; use warnings; use YAML::XS qw(LoadFile); my @files = qw( /tmp/file1.yml /tmp/file2.yml ); my $test = { }; foreach my $file ( @files ) { my $data = LoadFile($file); my $name = $data->{name}; $test->{$name} = { %$data }; }