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

##</code><code>##

    for my $indx ( 0 .. 2 ) {

##</code><code>##

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

##</code><code>##

         my $work_package = $work_request;

##</code><code>##

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

##</code><code>##

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