@num = (1, 1, 3, 2, 4, 3, 5);
@address = (address1, address1, address3, address2, address4, address3, address5 );
my %hash;
@hash{@num}=@address;
print "$_ => $hash{$_}\n" for sort {$a <=> $b} keys %hash;