use Modern::Perl;
use Data::Dump qw/dump/;
use DBI;

my $dbh = DBI->connect(
    "dbi:CSV:",
    "", "",
    {
        f_schema => 'test',
        f_dir    => './test',
        f_ext    => '.csv',
    }
) or die "Could not open database: $DBI::errstr";
$dbh->{RaiseError} = 1;

my $query =
'SELECT file1.vm_name, vm_cluster, vFiler_IP, vFiler_cluster FROM file1 join file2 WHERE file1.vm_name = file2.vm_name';
my $result = $dbh->selectall_arrayref($query);

print dump($result);

##</code><code>##

[
  ["vm1", "fd1", "1.1.1.1", "fd4"],
  ["vm2", "fd2", "1.1.1.2", "fd3"],
  ["vm3", "fd3", "1.1.1.3", "fd2"],
  ["vm4", "fd4", "1.1.1.4", "fd1"],
]