use Modern::Perl;

use YAML qw/DumpFile LoadFile/;
local $YAML::UseCode = 1;

my $code = {
    snippet1 => sub {
        my $counter;
        for ( 1 .. 10 ) { say; $counter++ }
        say $counter;
      }
};
DumpFile( './snippet.yml', $code );

my $snippets = LoadFile('./snippet.yml'); # <- Put this in the initialization part of your program
&{ $snippets->{snippet1} }; # and run the snippet