foo.pl

# starting length: 96
@a=("Hare ","Krishna ","Rama ","\n");foreach(split//,'ababdbbaadacacdccaad'){print $a[ord($_)-97]}

# unneeded whitespace (-1)
@a=("Hare ","Krishna ","Rama ","\n");foreach(split//,'ababdbbaadacacdccaad'){print$a[ord($_)-97]}

# magic variable substitution (-2)
@a=("Hare ","Krishna ","Rama ",$/);foreach(split//,'ababdbbaadacacdccaad'){print$a[ord($_)-97]}

# for is the same as foreach (-4)
@a=("Hare ","Krishna ","Rama ",$/);for(split//,'ababdbbaadacacdccaad'){print$a[ord($_)-97]}

# /./g is shorter than split (-2)
@a=("Hare ","Krishna ","Rama ",$/);for('ababdbbaadacacdccaad'=~/./g){print$a[ord($_)-97]}

# we don't need this ord business... make the characters of the string be indices! (-8)
@a=("Hare ","Krishna ","Rama ",$/);for('01013110030202322003'=~/./g){print$a[$_]}

# nor do we need a variable... (-5)
for('01013110030202322003'=~/./g){print+("Hare ","Krishna ","Rama ",$/)[$_]}

# postfix 'for' doesn't need parens or braces (-4)
print+("Hare ","Krishna ","Rama ",$/)[$_]for'01013110030202322003'=~/./g

# new length: 72 (-26)