Select Code to Download

my %hash = ( foo => 1,
             bar => 2,
...
foreach ( keys %hash ) {
    $result[ @result ] = "$_:$hash{ $_ }";
}

my %hash = ( 1 .. 100000 );

...
#Benchmark: timing 500000 iterations of obfu, push...
#      obfu:  5 wallclock secs ( 2.93 usr +  0.01 sys =  2.94 CPU) @ 1
+69836.96/s (n=500000)
#      push:  3 wallclock secs ( 2.94 usr +  0.00 sys =  2.94 CPU) @ 1
+70357.75/s (n=500000)

sub new {
    my ($class, $orderID, $owner, $limit) = @_;
...

    # rest of constuctor ...
}