$key="";
@karray= split(//,$key);

##</code><code>##

while (length($key) < 4) {
    print "Please Enter Your Desired Key (5 or more characters) \n --> :";
    $key=<>;
}

##</code><code>##

for ($i=0;$i<length($key);$i++) {
    $temp = 0;

    for ($i2=0;$i2<length($key);$i2++) {
            $temp += (ord(@karray[$i])+ord(@karray[$i2]));
                        $offsetpattern .= chr((ord(@karray[$i])+ord(@karray[$i2])+ ord($offset2[$i % length($key)]))%256);

##</code><code>##

    $cyphertext = <>;
    $len = length($cyphertext)-1;
    @array = split(//, $cyphertext);
    for ($i=0;$i<$len;$i++) {
       $char = chr((ord(@array[$i])...

##</code><code>##

chomp(my $blah = <STDIN>);    # This should be validated...
my @input = split //, $blah;
for my $index (0 .. $#input){
    print "$index: $input[$index]\n";
}

##</code><code>##

for (my $i = 1; $i < 10; $i++){
    print "$i\n";        # Ooops - only counted to 9!
}

for my $i (1..10){
   print "$i\n";         # Does the right and obvious thing
}

print "$_\n" for 1..10;  # Same thing, even more Perlish