#!/bin/perl -w
use strict;

my %hash;

for my $pair (@ARGV) {
        my ($var, $val)= split /\s*=\s*/, $pair;
        $hash{$var} = $val;
}