my @array = ("var1", "var2", "var3");
my %hash;

foreach my $item (@array)
{
  $hash{$item} = "Info on $item";  # or <STDIN> for user input
}