no strict 'refs';
use strict 'refs'; $variable = 100; { no strict 'refs'; $variablename = "variable"; print $$variablename; }