use strict; use warnings;
use YAML qw/ LoadFile /;

my $hashref = LoadFile('my_data.yaml');
my %hash = %{ $hashref };
for my $key ( keys %hash ) {
    printf( "Value of `a` in %s is %s', $key, $hash{ $key }->{'a'} );
}

__END__