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

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

}