use Data::Dump;
dd  { line => $_, id => $id };