#!/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';
    }
}