foreach my $network (@filtered_networks) { my $href; $href->{node} = $node->{hostname}; $href->{port} = $network->{interface}; unless ($href ~~ @ret_array) { push (@ret_array, $href); } } #### 2501 Return array is $VAR1 = { 2502 'node' => 'cst-2554A-004-05', 2503 'port' => 'e0b' 2504 }; 2505 $VAR2 = { 2506 'node' => 'cst-2554A-004-05', 2507 'port' => 'e0b' 2508 }; 2509 $VAR3 = { 2510 'node' => 'cst-2554A-004-05', 2511 'port' => 'e0a' 2512 };