my @levels = qw( Low Guarded Elevated High Severe ); print "Current Alert Level: ", $levels[rand@levels], $/;