{
  local $\="\t"; 
  print_data( \@data );
}

##</code><code>##

my $some_variable = 1;
{ 
    my $some_variable = 0;
    do_some_stuff();
}