Select Code to Download

    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";
    }

sub next_file {
    use strict;
...
        return $string3;
    }
}

word is a
next is b.png
...
word is oi
snakeeyes: you hit nothing with oi
next is a.png