I'm still trying to get used to 5.10, so I tried it:

#!/usr/bin/perl

use feature qw/:5.10 switch say/;

my(@gr_choices) = qw/jpeg jpg png/;
given($gr_choices[0]) {
    when('jpeg') {
        say 'jpeg is one of the choices';
    }
}
[download]