#!/usr/bin/perl
use strict;
use warnings;

my $j = 2;
while ( my $i = $j ) {
    print $i if defined $i;
    last unless $i--;
    redo;
}