my $perl = 666;
{
   my $perl = $perl;
   print "$perl\n";
}