Select Code to Download

use strict;
use Data::Dumper;
...
foreach (keys %tcp_utilization_adapter_names) {
    print "$tcp_utilization_adapter_names{$_}\n";
}

# insert hash entries
$tcp_utilization_adapter_names{$network_if} = $if_name;