@a= map{$a[$_]} grep {$b[$_]>1 } 0..$#b;

##</code><code>##

my @data = ([6, 3], [7, 2], [8, 1]);
my @result = grep {$_->[1] > 1} @data;

##</code><code>##

my @dataA = (6, 7, 8);
my @dataB = (3, 2, 1);
my @data = map {[$dataA[$_], $dataB[$_]]} 0 .. $#dataA;