$ cat target-file.txt
Address1=
Address2=
Address3=

$ perl -Mstrict -pi -wle 'our @ports; BEGIN { my $source = "tcp 20 tcp 40 tcp 80"; @ports = $source =~ /tcp\s+(\d+)/g;} $_ .= shift(@ports);'  target-file.txt

$ cat target-file.txt
Address1=20
Address2=40
Address3=80