LINE: while() { chomp; my($nx,$ny) = split; next LINE if ($ny <= 1.0); CONDITION: foreach my $cond_ref ( @range_destination ) { my ( $min, $max, $dest ) = @$cond_ref; if ( $nx > $min && $nx < $max ) { $capVal_Hash{$dest}{$nx} = $ny; last CONDITION; } } }