my @unique_terminal_id = grep { !($seen_values{$_->[4]}++) } @temp_open_single; my %seen_values; my @unique_manufacturer_model = grep { !($seen_values{$_->[9]}{$_->[10]}++) } @unique_terminal_id; my %seen_values; my @unique_manufacturer_model_version = grep { !($seen_values{$_->[9]}{$_->[10]}{$_->[11]}++) } @unique_terminal_id;