Select Code to Download

#!/usr/bin/perl
use strict;
...
initial hash: { id1 => 1, id2 => 2 }
mod by sub   : { id1 => 1, id2 => 5 }
mod by confusing   : { id1 => 1, id2 => 9 }