@array = ('var1=x','var2=y','var3=z');

##</code><code>##

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

}