Ich hoffe du weist dass du if (m/Sec\_$i/ .. m/Sec\_$j/) immer einschließlich der angeben Werte auswählst. Wenn $j immer um 1 größer ist als $i und $i immer um 1 erhöht wird werden die Einträge aus @data dupliziert da $j der nächste $i wert ist. Ich hoffe du bist dir dessen bewusst.