Select Code to Download

for (@{$data}) {
    my $key = $_->[0];
...
    my $random = $_->[rand($#{$_}) + 1];
    $vars{$key} =  $random;
}

%vars = map { $_->[0],$_->[rand($#{$_}) + 1] } @{$data};

$story = {
      protaganist => [ 'al debaran','narrator','japh','gilligan' ],
      dog => [ 'my pretty pitty' ],
};

data/protaganist.txt
al debaran
...
data/trials.txt
adventures
bedraengisse