#! /usr/bin/perl 

use constant VARS => {X => 20, Y => 20};
use constant EQ => [2*Y, -2*X*Y];
$x = VARS -> {X};
$y = VARS -> {Y};
print "Val of \$x is $x \n";
print "Val of \$y is $y \n";

$temp = EQ ->[0];
print "$temp \n";

print EQ->[1]."\n";