my $i = 0;
my @X;