foreach @{$heaven{purpose}} { $_ = time}