my @arr1 = grep {$_->[2]==30} @arr;