$ perl -MO=Deparse,-p 1.pl
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
use strict;
(my $i = 3);
(my $n = 1000);
loop: print($n 4);
print($n 8);
print($n 12);
print($n 16);
($n += 16);
((--$i) and (goto loop));
1.pl syntax OK