[_m3]

IMHO wird $_ irgendwo in Deinem Sourcecode überschrieben und repräsentiert daher nicht mehr Deinen Index.
Lösung: Nutz eine explizite Variable als Index. Z.B.:
for my $idx ( 0 .. $c ) {
my $tmp = $data[$idx];
....
delete $data[$idx];
...