my %pics = (pic0 => $q->param("photo"));
$pics{"pic$_"} = $q->param("photo$_") for 1..14;

my @pic_filehandles = map { $q->upload("photo$_") } '',1..14;