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";