use Data::Dumper;

...

# insert after the first foreach loop.
print Dumper(\@tcp_utilization_metrics);