my @filenames = qw/a.png dpq.jpg zx.png ott.jpg zzz.tiff  oi.png/;
    foreach (@filenames) {
        my $next = next_file($_);
        say "next is $next";
    }