Use of uninitialized value $line in numeric eq (==) at C:\aperlphone\PhoneListFinalX.pl line 9.
Use of uninitialized value $line in scalar chomp at C:\aperlphone\PhoneListFinalX.pl line 11.
Use of uninitialized value $line in split at C:\aperlphone\PhoneListFinalX.pl line 12.
Use of uninitialized value $num in substitution (s///) at C:\aperlphone\PhoneListFinalX.pl line 16.
Use of uninitialized value $num in pattern match (m//) at C:\aperlphone\PhoneListFinalX.pl line 18.
Use of uninitialized value $num in pattern match (m//) at C:\aperlphone\PhoneListFinalX.pl line 21.
Use of uninitialized value $name in concatenation (.) or string at C:\aperlphone\PhoneListFinalX.pl line 25.
Use of uninitialized value $num in concatenation (.) or string at C:\aperlphone\PhoneListFinalX.pl line 25.
Use of uninitialized value $line in numeric eq (==) at C:\aperlphone\PhoneListFinalX.pl line 9.
Use of uninitialized value $line in scalar chomp at C:\aperlphone\PhoneListFinalX.pl line 11.
Use of uninitialized value $line in split at C:\aperlphone\PhoneListFinalX.pl line 12.
Use of uninitialized value $num in substitution (s///) at C:\aperlphone\PhoneListFinalX.pl line 16.
Use of uninitialized value $num in pattern match (m//) at C:\aperlphone\PhoneListFinalX.pl line 18.
Use of uninitialized value $num in pattern match (m//) at C:\aperlphone\PhoneListFinalX.pl line 21.
Use of uninitialized value $name in concatenation (.) or string at C:\aperlphone\PhoneListFinalX.pl line 25.
Use of uninitialized value $num in concatenation (.) or string at C:\aperlphone\PhoneListFinalX.pl line 25.
Use of uninitialized value $line in numeric eq (==) at C:\aperlphone\PhoneListFinalX.pl line 9.
Use of uninitialized value $line in scalar chomp at C:\aperlphone\PhoneListFinalX.pl line 11.
Use of uninitialized value $line in split at C:\aperlphone\PhoneListFinalX.pl line 12.
Use of uninitialized value $line in split at C:\aperlphone\PhoneListFinalX.pl line 12.
Terminating on signal SIGINT(2)