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