If in Unix, no need for Perl:

$ cat file1.txt
New_York  South_Street  334473
Los_Ange  West_Street   829839
Californ  North_Street  748723
$
$ cat file2.txt
David
John 
Mathew
$
$ paste file2.txt file1.txt  # separate with "\t"
David    New_York  South_Street  334473
John     Los_Ange  West_Street   829839
Mathew    Californ  North_Street  748723
$
$ man paste  # please read
[download]