Select Code to Download

#!/usr/bin/perl
use strict;
...
            'name' => 'broccoli'
          }
        ];

my %ranking = (
    1 => 0,
...
    5 => 2,
    10 =>3
);