use Data::Dumper;
local $Data::Dumper::Useqq = 1; # nicht sichtbare zeichen sichtbar machen
print Dumper $new_photo;