gistfile1.txt

use Path::Class qw/dir/;

foreach my $path ( @{$tx->{path}} ) {
    dir($path)->recurse(callback => sub {
        my $file = shift;
        if ( $file =~ /^$path(.*$tx->{suffix})$/ ) {
            $tx->load_file($1);
        }
    });
}