#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my %arg = map{my($key,$val)=split/=/;$key=>$val}@ARGV;

print Dumper(\%arg);