perl -lane 'print $last if ($F[0] ne $lastt); $last = $_; $lastt = $F[0];'