given ($ext) {
    when (qw/jpeg jpg png/) {

##</code><code>##

Useless use of a constant in void context at

##</code><code>##

given ($ext) {
    when ( @{[ qw/jpeg jpg png/] ]} ) {