Question 3 

foreach (1..2000) {
    my $word = shift @keys;
    $used{$word} = int(rand(100));
}
# dump %frag_id to banner_fragment.csv
# dump %map     to fragment_sort_bin.csv
# dump %used    to sort_bin.csv