Select Code to Download

use strict;

use Tie::IxHash;
...
      while ( my ($k, $v) = each %{dummy} ) { print $k." =". $v ."\n";
+ }
  }
}

NEW
one =11
...
two =12
four =34
five =25