for (1..3) {
    print "$_\n"
}
print "done\n"