my $ptr;
for ( my $i = 0; $i < @numbers; $i++ ){

 $ptr->{$i}->{ number } = $numbers[$i];
 $ptr->{$i}->{ sign }   = $signs[$i];

}

##</code><code>##

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

##</code><code>##

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