use 5.010;
use strict;
use warnings;
use DDP;
use YAML::XS qw(LoadFile);

my $ref = LoadFile($ARGV[0]);
p $ref;