#! perl -wl
use strict;
for my $i (1 .. 10) {
	print $i;
} cxontinue {
    print "#";
    print "-";
}