I Love Perl

I just wrote a chunk of sexy (or scary) code to lookup the answer a user gave (note it’s actually on one line):



$d[0]->[$q->{number}-1]->{answers}-> [$answerlookup{$mydata{$q->{number}}}]->{answer}


I’m not sure if I’m more surprised that it compiles or that it appears to actually work. Granted, it’s not as scary as some perl code out there.