use strict;
use warnings;
use Mysql;

my @ip;
my %record;

#### Connect to db
   my $dbh = Mysql->connect( $mysql_host, $mysql_db, $mysql_user, $mysql_pwd);

        #### Create query
            my $query = "select ip from mal_switch";

        #### query to database
            my $sth = $dbh->query($query);

            while (%record = $sth->fetchhash) {
                push @ip, $record{'ip'};
            }
        print(@ip);