#!/usr/bin/perl -w

use strict;

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

print %input, "\n";
[download]

you make my brain hurt ;).

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]

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

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

#!/usr/local/bin/perl
use strict;
$|++;

my $input = 1;
my %myhash;
my @mykeys;
my $key;

print "enter names and values!\nleave name field emtpy and press 'Ente
+r' when complete";
while ($input)
{
    print "\nname :";
    $input = <STDIN>;
    if ($input)
    {
        chop $input;
        next if (!$input);
        print "name already assigned" and $input=1 and next if ($myhas
+h{$input});
        while (!$myhash{$input})
        {
            print "value :";
            $myhash{$input} = <STDIN>;
            chop $myhash{$input};
        }
        
    }
}

print "\n\nresults\n=======\n";
@mykeys = keys %myhash;
foreach $key (@mykeys)
{
    print "name :".$key." value: ".$myhash{$key}.". .\n";
}
[download]

What do you mean "enter in variables from the user"? How does the user set the limit? Why does this look so much like a homework assignment?