Select Code to Download

my %run_factors = $this_week->get_run_factors();
...
...
  my %run_factors;
  @run_factors{$self->active_runs()} = $self->factors();  
}

#!/usr/bin/perl -w

...
    @return{@keys} = @values;
}

$VAR1 = {
          '1' => 2,
          '3' => 4
        };