#!/usr/bin/perl

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

foreach ( @array ) {
    s/^([^=]+?)=(.+?)$/\$$1 = "$2"/;
    eval;
    print "$_\n";
}

print "$var1 $var2 $var3\n";