sub diff_aref {
    my ($aref1, $aref2) = @_;
    
    my %href = undef; #### this is line 73

    @href{@{$aref2}} = @{$aref2};

    grep { not defined($href{$_}) } @$aref1;
}