%List = ();
#some initialization

for each $element($List{$key1}{$key2}{$key3}{$key4}{$key5})

#do something...

end