my $nights = @work and not sleep;
while (@work) {
print ":(\n" until $home-time;
}