for my $role (sort keys %$href ){
  my $key;
  if (!exists $sequences{$key}){ # line 33