use YAML;

my $s = YAML::LoadFile( "t.yml" );
my $f = $s->[ 0 ]->[ 1 ];
$f->();