my (%graphic, %url);
for ($i=0; $i<2; $i++) {
    $graphic{$i} = $foo;
    $url{$i} = $bar;
}