foreach my $a (1 .. 10) {
	print 'hi';
	print 'there'
}
print 'done'
