#!/usr/bin/env perl

use strict;
use warnings;
use feature   qw( :all );

# --------------------------------------
# Modules

use Data::Dumper;

# Make Data::Dumper pretty
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Indent   = 1;

# Set maximum depth for Data::Dumper, zero means unlimited
local $Data::Dumper::Maxdepth = 0;

# --------------------------------------

my @a = my %h = ( 1, 2, 3 );

say Dumper \@a;
say Dumper \%h;