The code seems to be fine...Creating a test tab delimited input file and using the code you have here, there is no issue...I get

Street \t Address \t Address
[download]

Perhaps check your file and Perl version, maybe there's something you're missing.