use Data::Dumper; $Data::Dumper::Useqq=1; print Dumper($file);