foreach my $line (@arr) {
    if( $line =~ m/^([^=]+)=(.*)/ ) {
        my( $name, $value )= ($1,$2);
        $hashed{ $name }= $value;
    } else {
        warn "Unhandled line '$line'";
    };
};