use warnings;
use strict;

my @suffixlist = qw(gif, jpg, jpeg, png, bmp, php, ico, GIF, JPG, JPEG, PNG, BMP, PHP, ICO);

print "$suffixlist[0]\n";

__END__

Possible attempt to separate words with commas at 
gif,