#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

foreach my $i(1..2) {
   my $j = 47 if 1 == 2;
   print "loop1 $i - ", Dumper($j);
   $j = 99;
   print "after $i - ", Dumper($j);
}

foreach my $i(1..2) {
   my $j;
   $j = 47 if 1 == 2;
   print "loop2 $i - ", Dumper($j);
   $j = 99;
   print "after $i - ", Dumper($j);
}