use Path::Tiny;
my $dir = path('/tmp/bkp');
for my $file ($dir->children(qr/\.gz$/)) {
    say $file;
    if ($file->exists) {
        ...
    }
}