$res1=any { $a<$b } \@vec1, \@vec2;

##</code><code>##

$res2=all { $a<$b } \@vec1, \@vec2;

##</code><code>##

use Quantum::Superpositions;
$res1 = any(@vec1) < any(@vec2);
$res2 = all(@vec1) < all(@vec2);