my %completed;

for (@$completed_courses) {
    $completed{$_->{title}} = undef;
}