@source = ( ... );

##</code><code>##

 %source = map { $_ => undef } ( ... );

##</code><code>##

sub check_array
{
    my ( $array, $source ) = @_;
    for ( @$array ) {
        return if ( ! exists( $$source{$_} ));
    }
    return 1;
}