use Data::Dumper;
$Data::Dumper::Useqq = 1; # shows all non-printable characters
print Dumper \@lines;