Select Code to Download

#!usr/bin/perl
use strict;
...
    }
    
    foreach(keys %buckets){print $_,$buckets{$_},"\n";}