Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
x1=2; x2=3; x3=4;
y1=3; y2=5; y3=7;
z1=4; z2=7; z3=10;

C:\Old_Data\perlp>perl t5.pl
$VAR1 = {
          'y1' => '3',
...
          'y2' => '5',
          'y3' => '7'
        };