<: my @reel = ( [ "attuale.plp" => "Schede dei concorrenti" ], [ "scene_attuale.plp" => "Scene di vita dalla Casa" ], [ "prove_attuale.plp" => "I Test Psicoattitudinali" ], [ "deposizioni_attuale.plp" => "La stanza delle Deposizioni" ], [ "riesame_attuale.plp" => "La prova del riesame" ], ); :>

<: for ( @reel ) { if ( $ENV{PLP_NAME} =~ m#/$_->[0]$# ) { print qq|
• $_->[1]\n|; } else { print qq|
• $_->[1]|; } } :> <: if (defined $reelmsg and $reelmsg) { print qq|
• 
  $reelmsg| } :>