Select Code to Download

$graphic1 = $pers_dcr_files{ $key[1] }{GraphicName};
$graphic2 = $pers_dcr_files{ $key[2] }{GraphicName};

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