$element_count=0; my %CLIQUE_DETAILS; foreach $element (@CLIQUE_ID_START_LINES) { if ($element != $CLIQUE_ID_START_LINES[$#CLIQUE_ID_START_LINES]) { for ($i = $element; $i<=$CLIQUE_ID_START_LINES[$element_count+1]; $i++) { if ( not exists $CLIQUE_DETAILS{$element_count} ) { $CLIQUE_DETAILS{$element_count} = []; } push(@{$CLIQUE_DETAILS{$element_count}}, $VCONFIG[$i]); } $element_count++ }