my @planets = qw( Mercury Venus Earth Mars Jupiter Saturn Uranus Neptune );