Select Code to Download

use constant { POSTED => 0, VOTED => 1, RATIO => 2 };

...
    and print "Pair @{[ unpack 'LL', $_ ]} had a vote/post ratio of @{
+ $pairs{ $_ } }[ POSTED, VOTED, RATIO ]"
    for keys %pairs;