my %ext = ( ... );
...

my $method = $ext{'JPEG'};
print $image->$method;
...