Variable Variabelnamen

[CPAN]

my (%label, %entry);  
⋮  
    $label{$index} = …  
    $entry{$index} = …  
  
    $label{$index}->method(…)

Das ist so banal, das hättest du auch mit Hilfe der Lehrmaterialien oder durch bloßes Ausprobieren alleine zusammengekriegt.