my %ext = ('jpg' => 'jpeg', 'jpeg' => 'jpeg', 'png' => png', 
	'JPEG' => 'jpeg', ,'JPG' => 'jpeg', 'PNG' => 'png');
....

my $aux = $ext{'JPEG'};
print  $image->$aux();
...