Just to add my two cents worth:

my %hash;
foreach (@ARGV)
{
    $_ =~ m/^(.*?)=(.*)$/;
    $hash{$1} = $2;
}
[download]

Well maybe it was only worth 1 cent. Here's another 1 cents worth:

my %hash = map{m/^(.*?)=(.*)$/;$1=>$2} @ARGV;
[download]