use Data::Vars [qw(one two three answer)], {one=>1, two=>2, three=>3};

my $p=Data::Vars=>new();

$p->answer=$p->one+$p->two*$p->three;
P "answer=%s", $p->answer;
answer=7