#!/usr/bin/perl -w

use strict;

print "Limit? ";
my %input = map { print "Key = Value: "; split(/=/, <STDIN>); } (1 .. (<STDIN>));

print %input, "\n";