while (<$fh>) {
   next if 1 .. 1;
   print "$_\n";
}

##</code><code>##

while (<$fh>) {
   next if $.==1 .. $.==1;
   print "$_\n";
}

##</code><code>##

for (1,2,3,4,5) {
   next if $_==1 .. $_==1;
   print "$_\n";
}

##</code><code>##

>perl -MO=Concise -e"print( 4 + 1 * 2 )"
6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v ->3
5     <@> print vK ->6
3        <0> pushmark s ->4
4        <$> const[IV 6] s ->5           <--- 4+1*2
-e syntax OK

>perl -MO=Concise -e"print( 4 + $x * 2 )"
a  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v ->3
9     <@> print vK ->a
3        <0> pushmark s ->4
8        <2> add[t3] sK/2 ->9          \
4           <$> const[IV 4] s ->5      |
7           <2> multiply[t2] sK/2 ->8  | <--- 4+$x*2
-              <1> ex-rv2sv sK/1 ->6   |
5                 <#> gvsv[*x] s ->6   |
6              <$> const[IV 2] s ->7   /

##</code><code>##

sub PI() { 4 * atan2(1, 1) }
use constant SOMENUM => rand(4);

##</code><code>##

4
5+6*7
4 * atan2(1, 1)
PI
SOMENUM