%hash = map {do {print "Your information for $_: ";
                     chomp (local $_ = <STDIN>); $_} => $_} @array;