use strict; use warnings;

my $last = '';
while(<>)
{
   my @columns = split; 
   next if $columns[0] eq $last;
   $last = $columns[0];
   print;
}