Select Code to Download

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

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

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