#!/usr/bin/perl -w
use strict;

for my $no (1..10) {
  print "No. $no \n";

  next unless $no < 5;
  print "\t is less than 5\n";
}