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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

data/protaganist.txt
al debaran
the narrator
japh

data/trials.txt
adventures
bedraengisse