Select Code to Download

(call_time=1000) + (allocate_names=150) + (copy_values=250) + (extra_b
+it_a=15) 

versus

(call_time=1000) + (allocate_names=150) + (copy_values=250) + (the_ext
+ra_bit=5)

sub process {
    my( $AoA,  $thingToProcess ) = @_;
...
...

process( $AoA, 123 );

## Use meaningful names obviously!!
use constant { 
...
}    

process( $AoA[ $thingToProcess ] );