open PROFILE,   "<  profile/file/name"  or die "can't open profile file: $!";

my %finishedusers;

while (<PROFILE>) {
  my @pieces = split /:/;
  next unless @pieces > 8; # Only match lines containing >8 ":"'s
  $finishedusers{$pieces[0]} = $pieces[7];
} 
close PROFILE;