use strict;
use warnings;

use Devel::Peek qw( Dump );
use Time::HiRes qw( time );

my @a = qw( a b c d e f g h i j );

my $stime = time;
my $x; $x = $#a for 1..1_000_000;
my $etime = time;

print("time delta = ", $etime-$stime, "\n");

Dump(\@a, 1) if $ARGV[0];