Select Code to Download

%hash = ( "var1" => "Info on var1", "var2" =>, etc....);

my @array = ("var1", "var2", "var3");
my %hash;
...
{
  $hash{$item} = "Info on $item";  # or <STDIN> for user input
}