my @n = (10..100);
my $i;
my $j = 0;
my $k;

LINE1: for ($i; $i < 10; $i++) {
   $k = $n[int rand @n];
   $j += $k;
}

if ( ((550 - $j) < 10) || ((550 - $j) > 100) ) {
   redo LINE1; 
}

my @n = (10..100);
my $i;
my $j;

LINE1: for ($i; $i < 10; $i++) {
   $i = $n[int rand @n];
   $j += $i;
   if ( ((5500 - $j) < 10) || ((5500 - $j) > 100) ) {
      print qq{Inside "if" condition $j\n};
      redo LINE1; 
   }
   print $j,"\n"; 
}