Language Basics Perl

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