#!/bin/perl -w
use strict;
my( $_var, $_val)= split /\s*=\s*/, $ARGV[0];
my %hash=( $var => $val);