Select Code to Download

use strict;
use warnings;
...
print "Final results:\n";
printf "%10s : %d\n", $_, $votes{lc $_}[0]
  for @candidates;