http://qs1969.pair.com?node_id=361059

my @errors = qw(arg1=1 arg2=2 arg3=3); my %errors; foreach my $error (@errors) { my @temp = split(/=/, $error); $errors{$temp[0]} = $temp[1]; } %errors2 = map {split /=/,2} @errors; # thanks, Chmrr
#! /the/world/is/my/oyster Perl

Kenning answers

#1: CGI.pm