Re^3: $mech help

[Corion]

Then your first step should be to identify the "one print" and split it up into two separate print statements. For example,

print %s

could be changed into a loop over the hash keys:

for my $key (keys %s) {
    print "Key: %key, Value: $s{ $key }\n";
};