my $step1;
my $step2;
my $step3;
my @array1;
my @array;
my $i = 0;