Language Basics Perl

$variable1 = 5;
print $variable1;
undef $variable1;
$variable1