use Data::Dumper;
local $Data::Dumper::Useqq = 1; # sonderzeichen lesbar ausgeben
print STDERR Dumper \@array; # z.b.