use Data::Dumper;
local $Data::Dumper::Useqq = 1;
warn Dumper $line;
warn Dumper $item;