perl -F, -nae '$ok?(print $last):($ok=1) if ($F[3] ne (split/,/,$last)[3]); $last=$_; END{print $last;}' file 

##</code><code>##

perl -F, -nae '$s{$F[3]}=$_; END{print values %s;}' file