while(<$file>){
  my @fields = split ':';
  last if $fields[0] eq $userid;
}