my $sql = 'SELECT key_number,action,dateadded
           FROM keysafe
           ORDER BY key_number, dateadded';
my $sth = $dbh->prepare($sql);
$sth->execute();
my ($last_key,$last_action);
while (my ($key,$action,$date) = $sth->fetchrow_array){
  my $status = 'OK';
  if (($key eq $last_key) && ($action eq $last_action)){
    $status = 'ERROR';
  };
  print "$key,$action,$date,$status\n";
  $last_key    = $key;
  $last_action = $action;
}