Select Code to Download

%h = ( 
         '1' => [
...
                 ],
         ...
);

  $num = 1;
  $string = join '', @{$h{$num}}; # string is now helloyoutree
  $num = 4; # select the string with number 4 ( lovefood )
  $string = join '', @{$h{$num}};