10004,Able,Baker,able.baker@notrealemail.com
14634,Charley,Delta,charley.delta@notrealemail.com
12886,Echo,Foxtrot,echo.foxtrot@notrealemail.com
14366,Golf,Hotel,golf.hotel@notrealemail.com
10178,India,Juliet,india.juliet@notrealemail.com
10164,Kilo,Lima,kilo.lima@notrealemail.com
10124,Mike,November,mike.november@notrealemail.com

##</code><code>##

10004,Able,Baker,able.baker@notrealemail.com,UF, A, Y, 9, U
14634,Charley,Delta,charley.delta@notrealemail.com,UF, A, Y, 9, U
12886,Echo,Foxtrot,echo.foxtrot@notrealemail.com,UF, A, Y, 9, U
14366,Golf,Hotel,golf.hotel@notrealemail.com,UF, A, Y, 9, U
10178,India,Juliet,india.juliet@notrealemail.com,UF, A, Y, 9, U
10164,Kilo,Lima,kilo.lima@notrealemail.com,UF, A, Y, 9, U
10124,Mike,November,mike.november@notrealemail.com,UF, A, Y, 9, U

My goal is to perform this appending function within a perl script.
I found a site suggesting this type of command formating:
<code>
perl -ne 'chomp; printf "%sUF,A,Y,9,U\n", $_' test2.csv > final.csv;

##</code><code>##

Bareword found where operator expected at ./test_2.pl line 8, near "'chomp; printf "%sUF,A,Y,9,U\n", $_' test2"
        (Missing operator before test2?)
syntax error at ./test_2.pl line 8, near "-ne"
Execution of ./test_2.pl aborted due to compilation errors

##</code><code>##

awk '{print $0,"UF,A,Y,9,U"}' OFS="," < test2.csv > final.csv

##</code><code>##

print "awk '{print \$0,\"UF,A,Y,9,U\"}' OFS\=\",\" < test2\.csv > final\.csv\n";