[Purdue-pm] Perl 5 programming challenge

[Rick Westerman]

> To which Rick bragged:
>
>> My solution is 2 lines (statements) long (not counting the 2 I/O 
>> statements) and like Mark's solution does not include any explicit 
>> chr, do, for, if, ord, sub, while or until.   It will interesting to 
>> see what Mark and the rest of you come up with.
> I demand to see a
>
>
> use Data::Dumper;
> print Dumper \@here;
>
>
> of your @here!
>
>
     What, you want me to give away my secrets?  :-)  People *really*
need to come to the Mongers meeting if they want to see them.
Never-the-less, below is is Dumper of the @here followed by a Dumper of
my @print.   Yes, the @here is not perfectly parsed but as I noted in my
code this doesn't matter since the first and last elements will be
overwritten.

    And, no, I don't use 'grep' nor 'map'.

$VAR1 = '0 NUL';
$VAR2 = 'SOH';
$VAR3 = 'STX';
$VAR4 = 'ETX';
$VAR5 = 'EOT';
$VAR6 = 'ENQ';
$VAR7 = 'ACK';
$VAR8 = 'BEL';
$VAR9 = 'BS';
$VAR10 = 'HT';
$VAR11 = 'NL';
$VAR12 = 'VT';
$VAR13 = 'NP';
$VAR14 = 'CR';
$VAR15 = 'SO';
$VAR16 = 'SI';
$VAR17 = 'DLE';
$VAR18 = 'DC1';
$VAR19 = 'DC2';
$VAR20 = 'DC3';
$VAR21 = 'DC4';
$VAR22 = 'NAK';
$VAR23 = 'SYN';
$VAR24 = 'ETB';
$VAR25 = 'CAN';
$VAR26 = 'EM';
$VAR27 = 'SUB';
$VAR28 = 'ESC';
$VAR29 = 'FS';
$VAR30 = 'GS';
$VAR31 = 'RS';
$VAR32 = 'US';
$VAR33 = 'SP';
$VAR34 = '!';
$VAR35 = '"';
$VAR36 = '#';
$VAR37 = '$';
$VAR38 = '%';
$VAR39 = '&';
$VAR40 = '\'';
$VAR41 = '(';
$VAR42 = ')';
$VAR43 = '*';
$VAR44 = '+';
$VAR45 = ',';
$VAR46 = '-';
$VAR47 = '.';
$VAR48 = '/';
$VAR49 = '0';
$VAR50 = '1';
$VAR51 = '2';
$VAR52 = '3';
$VAR53 = '4';
$VAR54 = '5';
$VAR55 = '6';
$VAR56 = '7';
$VAR57 = '8';
$VAR58 = '9';
$VAR59 = ':';
$VAR60 = ';';
$VAR61 = '<';
$VAR62 = '=';
$VAR63 = '>';
$VAR64 = '?';
$VAR65 = '@';
$VAR66 = 'A';
$VAR67 = 'B';
$VAR68 = 'C';
$VAR69 = 'D';
$VAR70 = 'E';
$VAR71 = 'F';
$VAR72 = 'G';
$VAR73 = 'H';
$VAR74 = 'I';
$VAR75 = 'J';
$VAR76 = 'K';
$VAR77 = 'L';
$VAR78 = 'M';
$VAR79 = 'N';
$VAR80 = 'O';
$VAR81 = 'P';
$VAR82 = 'Q';
$VAR83 = 'R';
$VAR84 = 'S';
$VAR85 = 'T';
$VAR86 = 'U';
$VAR87 = 'V';
$VAR88 = 'W';
$VAR89 = 'X';
$VAR90 = 'Y';
$VAR91 = 'Z';
$VAR92 = '[';
$VAR93 = '\\';
$VAR94 = ']';
$VAR95 = '^';
$VAR96 = '_';
$VAR97 = '`';
$VAR98 = 'a';
$VAR99 = 'b';
$VAR100 = 'c';
$VAR101 = 'd';
$VAR102 = 'e';
$VAR103 = 'f';
$VAR104 = 'g';
$VAR105 = 'h';
$VAR106 = 'i';
$VAR107 = 'j';
$VAR108 = 'k';
$VAR109 = 'l';
$VAR110 = 'm';
$VAR111 = 'n';
$VAR112 = 'o';
$VAR113 = 'p';
$VAR114 = 'q';
$VAR115 = 'r';
$VAR116 = 's';
$VAR117 = 't';
$VAR118 = 'u';
$VAR119 = 'v';
$VAR120 = 'w';
$VAR121 = 'x';
$VAR122 = 'y';
$VAR123 = 'z';
$VAR124 = '{';
$VAR125 = '|';
$VAR126 = '}';
$VAR127 = '~';
$VAR128 = 'DEL
';


$VAR1 = '.';
$VAR2 = '.';
$VAR3 = '.';
$VAR4 = '.';
$VAR5 = '.';
$VAR6 = '.';
$VAR7 = '.';
$VAR8 = '.';
$VAR9 = '.';
$VAR10 = '.';
$VAR11 = '.';
$VAR12 = '.';
$VAR13 = '.';
$VAR14 = '.';
$VAR15 = '.';
$VAR16 = '.';
$VAR17 = '.';
$VAR18 = '.';
$VAR19 = '.';
$VAR20 = '.';
$VAR21 = '.';
$VAR22 = '.';
$VAR23 = '.';
$VAR24 = '.';
$VAR25 = '.';
$VAR26 = '.';
$VAR27 = '.';
$VAR28 = '.';
$VAR29 = '.';
$VAR30 = '.';
$VAR31 = '.';
$VAR32 = '.';
$VAR33 = ' ';
$VAR34 = '!';
$VAR35 = '"';
$VAR36 = '#';
$VAR37 = '$';
$VAR38 = '%';
$VAR39 = '&';
$VAR40 = '\'';
$VAR41 = '(';
$VAR42 = ')';
$VAR43 = '*';
$VAR44 = '+';
$VAR45 = ',';
$VAR46 = '-';
$VAR47 = '.';
$VAR48 = '/';
$VAR49 = '0';
$VAR50 = '1';
$VAR51 = '2';
$VAR52 = '3';
$VAR53 = '4';
$VAR54 = '5';
$VAR55 = '6';
$VAR56 = '7';
$VAR57 = '8';
$VAR58 = '9';
$VAR59 = ':';
$VAR60 = ';';
$VAR61 = '<';
$VAR62 = '=';
$VAR63 = '>';
$VAR64 = '?';
$VAR65 = '@';
$VAR66 = 'A';
$VAR67 = 'B';
$VAR68 = 'C';
$VAR69 = 'D';
$VAR70 = 'E';
$VAR71 = 'F';
$VAR72 = 'G';
$VAR73 = 'H';
$VAR74 = 'I';
$VAR75 = 'J';
$VAR76 = 'K';
$VAR77 = 'L';
$VAR78 = 'M';
$VAR79 = 'N';
$VAR80 = 'O';
$VAR81 = 'P';
$VAR82 = 'Q';
$VAR83 = 'R';
$VAR84 = 'S';
$VAR85 = 'T';
$VAR86 = 'U';
$VAR87 = 'V';
$VAR88 = 'W';
$VAR89 = 'X';
$VAR90 = 'Y';
$VAR91 = 'Z';
$VAR92 = '[';
$VAR93 = '\\';
$VAR94 = ']';
$VAR95 = '^';
$VAR96 = '_';
$VAR97 = '`';
$VAR98 = 'a';
$VAR99 = 'b';
$VAR100 = 'c';
$VAR101 = 'd';
$VAR102 = 'e';
$VAR103 = 'f';
$VAR104 = 'g';
$VAR105 = 'h';
$VAR106 = 'i';
$VAR107 = 'j';
$VAR108 = 'k';
$VAR109 = 'l';
$VAR110 = 'm';
$VAR111 = 'n';
$VAR112 = 'o';
$VAR113 = 'p';
$VAR114 = 'q';
$VAR115 = 'r';
$VAR116 = 's';
$VAR117 = 't';
$VAR118 = 'u';
$VAR119 = 'v';
$VAR120 = 'w';
$VAR121 = 'x';
$VAR122 = 'y';
$VAR123 = 'z';
$VAR124 = '{';
$VAR125 = '|';
$VAR126 = '}';
$VAR127 = '~';
$VAR128 = '.';
$VAR129 = '.';
$VAR130 = '.';
$VAR131 = '.';
$VAR132 = '.';
$VAR133 = '.';
$VAR134 = '.';
$VAR135 = '.';
$VAR136 = '.';
$VAR137 = '.';
$VAR138 = '.';
$VAR139 = '.';
$VAR140 = '.';
$VAR141 = '.';
$VAR142 = '.';
$VAR143 = '.';
$VAR144 = '.';
$VAR145 = '.';
$VAR146 = '.';
$VAR147 = '.';
$VAR148 = '.';
$VAR149 = '.';
$VAR150 = '.';
$VAR151 = '.';
$VAR152 = '.';
$VAR153 = '.';
$VAR154 = '.';
$VAR155 = '.';
$VAR156 = '.';
$VAR157 = '.';
$VAR158 = '.';
$VAR159 = '.';
$VAR160 = '.';
$VAR161 = '.';
$VAR162 = '.';
$VAR163 = '.';
$VAR164 = '.';
$VAR165 = '.';
$VAR166 = '.';
$VAR167 = '.';
$VAR168 = '.';
$VAR169 = '.';
$VAR170 = '.';
$VAR171 = '.';
$VAR172 = '.';
$VAR173 = '.';
$VAR174 = '.';
$VAR175 = '.';
$VAR176 = '.';
$VAR177 = '.';
$VAR178 = '.';
$VAR179 = '.';
$VAR180 = '.';
$VAR181 = '.';
$VAR182 = '.';
$VAR183 = '.';
$VAR184 = '.';
$VAR185 = '.';
$VAR186 = '.';
$VAR187 = '.';
$VAR188 = '.';
$VAR189 = '.';
$VAR190 = '.';
$VAR191 = '.';
$VAR192 = '.';
$VAR193 = '.';
$VAR194 = '.';
$VAR195 = '.';
$VAR196 = '.';
$VAR197 = '.';
$VAR198 = '.';
$VAR199 = '.';
$VAR200 = '.';
$VAR201 = '.';
$VAR202 = '.';
$VAR203 = '.';
$VAR204 = '.';
$VAR205 = '.';
$VAR206 = '.';
$VAR207 = '.';
$VAR208 = '.';
$VAR209 = '.';
$VAR210 = '.';
$VAR211 = '.';
$VAR212 = '.';
$VAR213 = '.';
$VAR214 = '.';
$VAR215 = '.';
$VAR216 = '.';
$VAR217 = '.';
$VAR218 = '.';
$VAR219 = '.';
$VAR220 = '.';
$VAR221 = '.';
$VAR222 = '.';
$VAR223 = '.';
$VAR224 = '.';
$VAR225 = '.';
$VAR226 = '.';
$VAR227 = '.';
$VAR228 = '.';
$VAR229 = '.';
$VAR230 = '.';
$VAR231 = '.';
$VAR232 = '.';
$VAR233 = '.';
$VAR234 = '.';
$VAR235 = '.';
$VAR236 = '.';
$VAR237 = '.';
$VAR238 = '.';
$VAR239 = '.';
$VAR240 = '.';
$VAR241 = '.';
$VAR242 = '.';
$VAR243 = '.';
$VAR244 = '.';
$VAR245 = '.';
$VAR246 = '.';
$VAR247 = '.';
$VAR248 = '.';
$VAR249 = '.';
$VAR250 = '.';
$VAR251 = '.';
$VAR252 = '.';
$VAR253 = '.';
$VAR254 = '.';
$VAR255 = '.';
$VAR256 = '.';






-- 
Rick Westerman
westerman at purdue.edu

Bioinformatics specialist at the Genomics Facility.
Phone: (765) 494-0505           FAX: (765) 496-7255
Department of Horticulture and Landscape Architecture
625 Agriculture Mall Drive
West Lafayette, IN 47907-2010
Physically located in room S049, WSLR building