my $a=10;
{
   my $a=11;
   print $a;
}