for $i (1..10) {
  $graphic{$i} = $pers_dcr_files{ $key[$i] }{GraphicName};
}