my $x = 1;
for(1,2,3,4,5) 
{
  next  if $x..$x; # never returns true!
  print "$_\n";
}