use strict;
use warnings;
use 5.010;

use Data::Dumper;

my @arr = ();
$arr[3] = 40;
say Dumper(\@arr);

--output:--
$VAR1 = [
          undef,
          undef,
          undef,
          40
        ];