Sorry pq, ich war schneller ... :-)

Ein
my $data3 = [@data];
ist nur anwendbar, wenn '@data3' noch keine Werte enthält und '@data' komplett übernommen werden soll.
Meine Glaskugel ging davon aus, dass $data3=substr($data3,2); wohl etwas zu bedeuten hat.

Grüße
Thomas.