Select Code to Download

    for ( my $indx = 0; $indx <=2; $indx++){

    for my $indx ( 0 .. 2 ) {

        # Make a reference to the hash reference 
         my $work_package = \%{$work_request};

         my $work_package = $work_request;

            my @list = @{$work_package->{$key}};
            for (my $a_id=0; $a_id <= $#list; $a_id++) {
...
                print " $list[$a_id]\t";
            }
            print "\n";

            for my $a_id ( 0 .. $#list ) {
                $list[$a_id]=$indx;
                print " $list[$a_id]\t";
            }