$ perl -F, -lane 'push@{$h{$F[0]}},$F[3]}{$"=",";print"$_,@{[reverse@{
+$h{$_}}]}"for sort keys%h' < input.txt
Kim,on,off
Rada,one,zero
Tyra,on,off
[download]

I wouldn't turn that in if I were you though...

-sauoq
"My two cents aren't worth a dime.";