sub my_sub {
   my $variable;

   ...
}

# or

if ($some_condition) {
   my $other_variable;

   ...
}

# $other_variable disappears when 'if' block exits!