$VAR1 = 'stuff'; $VAR2 = ''; $VAR3 = 'stuff'; $VAR4 = ''; $VAR5 = '10'; $VAR6 = ''; $VAR7 = '-'; $VAR8 = ''; #### do { $a_counter = 0; foreach my $x(@left_split) { if($x eq '') { splice @left_split, $a_counter-1, 1; $bool = 1; last; } } }