Hrm, probably the very best way to append that file is $telnet->cmd("adduser -m $username");.

Short of that, probably $telnet->cmd("echo something:something:something >> $filename"); would do the trick... But, of course, you'd first m/^username:/ in the first for() loop to see if it's there.