print "What's the limit?: "
chomp($limit = <STDIN>);

foreach (1 .. $limit) {
    print "enter variable $_ : ";
    chomp($somehash{$_} = <STDIN>);
}