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;