sub array_minus (\@\@) {
    my ( $got, $required ) = @_;
    my %required;
    @required{@required}=@required;
    delete  @required{@got};
    return values %required; 
}