#!/usr/bin/perl -w

use constant pi => 3.14159265358979;
use integer;

%planety = (Merkury => [88, 58.05e6],    Wenus => [224.7, 108.45e6],
             Ziemia => [365.25, 150e6],   Mars => [687, 228.6e6],
             Jowisz => [4331.9, 780e6], Saturn => [10760.3, 1431e6],
               Uran => [30681, 2877e6], Neptun => [60266.3, 4059e6],
             Pluton => [90582, 7395e6]);     # orbita Plutona jest zmienna

sub obwod {
    no integer;
    pi * 2 * $_[0];
}

while (($planeta, $dane) = each $planety) {
    print "Predkosc planety $planeta to ",
      obwod($dane->[1]) / ($dane->[0] * 24), " km/h\n";
}

