@a1 = map int( rand 1e6 ), 1 .. 8000; 
@a2 = map int( rand 1e6 ), 1 .. 6000;;

vec( $vec, $_, 1 )=1 for @a2;;

@missingFromA2 = grep !vec( $vec, $_, 1 ), @a1;;