14 @bfArray1=("","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z");
 15 @bfArray2=("","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z");
 16 @bfArray3=("","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z");
 17 @bfArray4=("","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z");
 18 @bfArray5=(a, b, c);
 19
 20 foreach $track1 (@bfArray1){
 21         foreach $track2 (@bfArray2){
 22                 foreach $track3 (@bfArray3){
 23                         foreach $track4(@bfArray4){
 24
 25                         print "$1 The combinations is: $track1$track2$track3$track4 \n";
 26                                 #$bfAnswer = undef;
 27                                 #$bfAnswer = $track1;# +  $track2 + $track3 + $track4;
 28                                 #print "Answer is $bfAnswer";
 29                                 #push(@result, $track1$track2$track3$track4 )
 30                                 $returnvalue = system("unzip -oP $track1$track2$track3$track4 secret_brute.zip");
 31                                 if ( ($returnvalue == 0) || ($returnvalue eq 0) ) {
 32                                 print "$track1$track2$track3$track4";
 33                                 exit 0;
 34                                 }
 35                         }
 36                 }
 37         }
 38 }