use List::Util qw( first );

my $picture = first { /$match/ } sort @pictures;