for my $key ( keys %Data ) {
 my @replace_vals = ();
 for my $val ( @{$Data{$key}} ) {
  if ( $val =~ /[@&]_\S+/ ) {  # need to split and process
   my @words = split ' ', $val;
   $val = '';
   for my $wrd ( @wrds ) {
    if ( $wrd =~ /\@_(\S+)/ ) {
     my $refkey = $1;
     if ( exists( $Data{$refkey} )) {
      my $n = @{$Data{$refkey}};
      $wrd = $Data{$refkey}[rand $n];
     } else {
      warn "No $refkey in Data for $key\n";
     }
    }
    elsif ( $wrd =~ /\&_(\S+)/ ) {
     my ( $refkey, @args ) = split /[:,]/, $1;
     if ( exists( $init_func{$refkey} )) {
      $wrd = $init_func{$refkey}->(@args);
     } else {
      warn "No $refkey function for $key\n";
     }
    }
    $val .= "$wrd ";
   }
  }
  push @replace_vals, $val;
 }
 $Data{$key} = [ @replace_vals ];
}