helper thumbs => sub { my @thumbs; my $dir = 'public/images/thumbs'; my $dh; opendir $dh, $dir; foreach (readdir $dh) { next if /^\.$|^\.\.$/; #let's assume there are no files in this dir, only dirs. push @thumbs, $_; } closedir $dh; return @thumbs; };