http://www.perlmonks.org?node_id=182938


in reply to Number of beverage containers currently on my desk

A bottle of 1664, a French blonde beer that draws 5.9%. A bit sweet for my taste but not bad for an industrial beer. The bottle has a nice high-tech touch, in that the label has a little snowflake printed in thermo-sensitive ink. Invisible at the wrong temperature; blue at the right temperature (between 6 and 8 degrees Celsius).

Cheers!


print@_{sort keys %_},$/if%_=split//,'= & *a?b:e\f/h^h!j+n,o@o;r$s-t%t#u'