Doin' a subselect in DBIx::Class

my %where = ('author_last_name'=>'Cantarel');$sub = 'IN (select papers.pubmed_id from papers inner join pubmed
using(pubmed_id) inner join journals using(journal_id) where  journal_name like '%informatics' or journal_name like 'Molecular%')';
$where{'papers.pubmed_id'}  = \$sub;

$q = $author_rs->search(\%where,
                  {
                   join=>'papers',
                   select   => ['journal_id',{count => 'pubmed_id'}],
                   as       => [qw/journal_id numpubs/],
                   group_by => [qw/journal_id/]
                  });

reading files from a dir in PERL

I always forget the silly syntax for this, so here it is:

#!/usr/bin/perl -w

opendir(DIR, ".");
@files = grep(/\.fasta$/,readdir(DIR));
closedir(DIR);

foreach $file (@files) {
   #do something

}