use Data::Dumper qw( Dumper );
local $Data::Dumper::Useqq = 1;
print(Dumper($line));