my @array = <ARRAY>;
    

    if ($array[0]){

##</code><code>##

 
LINE:    while (<FILE>)
{
	shift @array;
		unless ($array[0]){
		    last LINE;
		}

next LINE;
}