Select Code to Download

 @source = ( ... );

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

sub check_array
{
...
    }
    return 1;
}