Select Code to Download

use strict;
use warnings;
...
        ];
my %ams_ips_hash = map { $_->{'deviceIp'} => 1 } @{$ams_hosts};
print Dumper( \%ams_ips_hash );

$VAR1 = {
          '172.16.133.56' => 1,
          '172.16.133.57' => 1
        };