for (my $a = 0; $a < 10; ++$a) {
	print 'hi';
	print 'there'
}
print 'done'
