#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %vals = map /(\S+)\s*=\s*(\d+)/g, <DATA>;
print Dumper \%vals;

__DATA__
x1=2; x2=3; x3=4;
y1=3; y2=5; y3=7;
z1=4; z2=7; z3=10;