foreach $line(@numbers) { next if ($line =~ /^!/); @data = split(/\s+/, $line); shift @data; # discard date @data = reverse(@data); shift @data if ( @data > 6); # discard power play number if there. $pb = shift @data; $powerb{$pb}++ if($pb<40); foreach (@data) { $normals{$_}++; } }