Nitpick: None of the proposed solutions will give you the required output for the @names you showed in the OP!

D:\temp>perl -we "my @names = qw(user_name, house_name, street_address
+, phone_number, date_of_birth);"
Possible attempt to separate words with commas at -e line 1.
[download]