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
[download]

Kenning answers