Slick. I like it. Maybe the regex should handle optional space around the =

use strict; # Of course!
print "Limit? ";
my %input = map { print "Key = Value: "; split /\s*=\s*/, <STDIN> } ( 
+1 .. (<STDIN>) );
use Data::Dumper; # Pretty print 8^)
print Data::Dumper->Dump([\%input], ["input"]), "\n";
[download]