#!/usr/bin/env perl use 5.014; use warnings; use Data::Dumper; my @data = do $ARGV[0] or die $@; print Data::Dumper->new([\@data])->Terse(1)->Quotekeys(0)->Indent(1)->Dump;