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

for my $i (1..9)
{
  (print "Next"), 
   next if $i == 5;
   print $i
}

__END__
Output:
1234Next6789