foreach my $i (1 .. 10) {
    print $i;
}
do { print '#';
print '-' }->cxontinue;

test.pl syntax OK