use Data::Dumper;

print Dumper(\@split,$Ergebnis);