my %hash;
foreach my $i (0 .. $#num) {
    my $key = $num[$i];
    my $value = $address[$i];
    $hash{$key} = $value;
}
print "$_ => $hash{$_}\n" for keys %hash;