for ($i=0; $i<=2; $i++) {
push (@soliloquy, "tomorrow")
}
print join(' and ', @soliloquy), "\n";