Try providing sample data with ddumper,

use Path::Tiny qw/ path /;
dd( path( "infile" )->lines_raw( { count => 3 } ) );
sub dd {
  use Data::Dumper;
  print Data::Dumper->new([@_])->Sortkeys(1)
    ->Indent(1)->Useqq(1)->Dump . "\n";
}
[download]