my $variable;
tie $variable, "TieAccess", "variable";
$variable = 100;