Select Code to Download

   my $i, $j;

   my ($i, $j);

    my @tempArr = unpack("B64", $key);
    my @keyBitsArr = split("", $tempArr[0]);
    for ($j=0; $j<=$#keyBitsArr; $j++) {
        $keyBitsArr[$j] += 0;
    }

    my @tempArr = unpack("B64", $key);
    my @keyBitsArr = split("", $tempArr[0]);
    @keyBitsArr = map { $_ + 0 } @keyBitsArr;

    my @tempArr = unpack("B64", $key);
    my @keyBitsArr = map { $_ + 0 } split("", $tempArr[0]);

my @keyBitsArr56_PC1 = ();
for ($i=0; $i<=$#PC_1; $i++) {
    $keyBitsArr56_PC1[$i] = $keyBitsArr[$PC_1[$i]-1];
}

my @keyBitsArr56_PC1 = ();
for my $i (0 .. $#PC_1) {
    $keyBitsArr56_PC1[$i] = $keyBitsArr[$PC_1[$i]-1];
}

my @keyBitsArr56_PC1 = map { $keyBitsArr[$PC_1[$_]-1] } 0 .. $#PC_1;

my @even_from_0_to_20 = map  { $_*2 }        0 .. 10;
my @even_from_0_to_10 = grep { is_even($_) } 0 .. 10;
...
    my $val = shift;
    return 0 == $val % 2;
}

  
my @foo = map { sprintf "% 4u", $_ }
          grep { is_prime($_) }
          0 .. 1000;

for ($k=0; $k<32; $k++) {
   $bitsArray[$k] = $leftBitsArr[$k];
   $bitsArray[$k+32] = $rightBitsArr[$k];
}

@bitsArray = (@leftBitsArr, @rightBitsArr);

my @leftBitsArr = ();
my @rightBitsArr = ();
...
   $leftBitsArr[$j] = bitsArray_ip[$j];
   $rightBitsArr[$j] = $bitsArray_ip[$j+32];
}

my @leftBitsArr = @bitsArray_ip[0 .. 31];
my @rightBitsArr = @bitsArray_ip[32 .. 63];

sub createRoundKeys {

...
        $FileArray[$i] = pack("B64", join("", @bitsArray_ip_inverse));
+ #$tempVar);
    }
}