$ perl -wle '
> my $i = 1;
> while ( $i < 5 ) {
>   my $j = $i++;
>   print $j;
> }'
1
2
3
4
$

##</code><code>##

$ perl -wle '
my $i = 1;
my $j;
while ( $i < 5 ) {
  $j = $i++;
  print $j;
}'
1
2
3
4
$