@a=(6,7,8); 
@b=(3,2,1);;

$i=0; 
$b[$_] > 1 and $c[ $i++ ] = $a[$_] for 0 .. $#a;;

print @c;;
6 7