use strict;
use SQL::Abstract;

my @all_names = qw/one two three/;
my @email     = qw/first_email second_email third_email/;
my @local     = qw/here there and_everywhere/;
my @year      = qw/1970 1980 1990/;
my @order     = qw/location name/;

my $sql = SQL::Abstract->new;

my @fields = qw/name email addr location/;
my $table  = 'my_users';

my %where = (
    year     => \@year,
    email    => \@email,
    location => \@local,
    name     => \@all_names,
);

my ( $stmt, @bind ) = $sql->select( $table, \@fields, \%where, \@order );

print "$stmt\n";
print join '|', @bind;