my $o= 318862;
while (<DATA>) {
    if (my ($c, $pct, $pop, $int)= /(\w+)\s+(\S+)\s+(\S+)\s+(\S+)/) {
        $population{$c}= $pop;
        $internetters{$c}= $int;
        $orkutters{$c}= $o*$pct/100;
    }
}
print "inhabitants per orkutter/ orkutters per million population\n";
for (sort {$population{$a}/$orkutters{$a} <=> $population{$b}/$orkutters{$b}} keys %population) {
    printf("%s %s %s\n", fmt($population{$_}/$orkutters{$_}), fmt(1000000*$orkutters{$_}/$population{$_}), $_);
}
print "\n\n";
print "internetters per orkutter/ orkutters per million internetters\n";
for (sort {$internetters{$a}/$orkutters{$a} <=> $internetters{$b}/$orkutters{$b}} keys %population) {
    printf("%s %s %s\n", fmt($internetters{$_}/$orkutters{$_}), fmt(1000000*$orkutters{$_}/$internetters{$_}), $_);
}
print "\n\n";
sub fmt {
    my $val= sprintf("%d", shift);
    return "[silver]".("_" x (9-length($val)) )."[/silver]$val";
}
__DATA__
UnitedStates        43.49              294540100           209518183
Brazil              14.57              183199600            20551168
Japan                5.74              127944200            63884205
Netherlands          3.52               16364500            10806328
UnitedKingdom        3.31               59157400            34765774
Canada               2.95               32026600            16841811
India                2.91             1088056200            16580000
Estonia              2.19                1268300              444000
Germany              2.17               82633200            44842759
Spain                1.79               41895600            13600467


