#!/usr/bin/perl

use strict;
use warnings;
use AWS::CLIWrapper;
use Data::Dumper;

my $aws = AWS::CLIWrapper->new(profile => 'my_profile') or
    die $AWS::CLIWrapper::Error->{Message};

sub gethosts {
    my $name = shift;
    my $hosts = $aws->ec2('describe-instances' => {
        filters => [{Name => 'tag:Name', Values => [$name]}],
        query => 'Reservations[*].Instances[*].{Id:InstanceId,Addr:PrivateIpAddress,Zone:Placement.AvailabilityZone,Name:(Tags[?Key==`Name`])[0].Value}'}) or
            die "$AWS::CLIWrapper::Error->{Message}";
    return [map {@$_} @$hosts];
}
my $hosts = gethosts('*something*');
print Dumper($hosts);