my @addresses; my $sth= $db->prepare('SELECT addresses FROM table_name') or die "SQL error: $DBI::errstr\n"; $sth->execute(); while (my $row = $sth->fetchrow) { push @addresses, $row; } my @matches = grep { /pattern/ } @addresses;