#!/usr/bin/perl

use 5.012;
use strict;
use warnings;

for my $folder (<??>) {
    next if $folder =~ /\.\./;
    next if -f "$folder/$folder.txt.bz2";
    my @files = <$folder/*>;
    say $files[0];
}
