use List::MoreUtils qw(indexes);
my @a = ( 6, 7, 8 );
my @b = ( 3, 2, 1 );
@a = @a[ indexes{ $_ > 1 } @b ];
[download]

Update: Others beat me to this one by hours. ;)