foreach (@array)
{  my ($var,$val) = split(/=/,$_);
   $$var = $val;

}