$ ./5.triton.pl 
Make query number 1? [Y] :Y
Make query number 2? [Y] :Y
Make query number 3? [Y] :Y
Make query number 4? [Y] :Y
Make query number 5? [Y] :Y
Make query number 6? [Y] :Y
$VAR1 = [
          [
            ' ',
            'Right
Ascension',
            'Declination',
            'Distance
(AU)',
            'From 45°N 122°W:',
            undef,
            undef
          ],
          [
            undef,
            undef,
            undef,
            undef,
            'Altitude',
            'Azimuth',
            undef
          ],
          [
            'Sun',
            '15h 14m 28s',
            "\x{2212}18\x{b0} 1.0'",
            '0.990',
            "\x{2212}56.049",
            '134.597',
            'Set'
          ],
          [
            'Mercury',
            '16h 34m 17s',
            "\x{2212}24\x{b0} 23.1'",
            '1.215',
            "\x{2212}48.583",
            '104.536',
            'Set'
          ],
          [
            'Venus',
            '14h 21m 15s',
            "\x{2212}12\x{b0} 43.1'",
            '1.642',
            "\x{2212}56.283",
            '159.644',
            'Set'
          ],
          [
            'Moon',
            '11h 29m 54s',
            '+6° 4.0\'',
            '59.6 ER',
            "\x{2212}31.689",
            "\x{2212}142.465",
            'Set'
          ],
          [
            'Mars',
            '12h 51m 38s',
            "\x{2212}4\x{b0} 19.7'",
            '2.331',
            "\x{2212}48.205",
            "\x{2212}163.434",
            'Set'
          ],
          [
            'Jupiter',
            '14h 21m 15s',
            "\x{2212}12\x{b0} 59.9'",
            '6.395',
            "\x{2212}56.553",
            '159.518',
            'Set'
          ],
          [
            'Saturn',
            '17h 41m 55s',
            "\x{2212}22\x{b0} 24.3'",
            '10.861',
            "\x{2212}35.493",
            '92.927',
            'Set'
          ],
          [
            'Uranus',
            '1h 35m 39s',
            '+9° 19.7\'',
            '19.010',
            '54.328',
            "\x{2212}0.031",
            'Up'
          ],
          [
            'Neptune',
            '22h 53m 7s',
            "\x{2212}8\x{b0} 6.8'",
            '29.586',
            '25.569',
            '45.596',
            'Up'
          ],
          [
            'Pluto',
            '19h 13m 54s',
            "\x{2212}21\x{b0} 48.5'",
            '33.987',
            "\x{2212}18.947",
            '77.750',
            'Set'
          ]
        ];
$