use v5.12;
use warnings;

my (@x,%x);

my $i=1;
for my $v (undef,0,7) {
  $x[$i]=$x{$i}=$v;
  $i++;
}