Select Code to Download

my $ptr;
for ( my $i = 0; $i < @numbers; $i++ ){
...
 $ptr->{$i}->{ sign }   = $signs[$i];

}

while (@new_numbers){
 my $i = $_;
...
  print $ptr->{$i}->{ sign }.$ptr->{$i}->{ number }."\t".$i;
 }
}

$hash{ $numbers[$i].":".$i } = $signs[$i];