перловое удовольствие

[jayrandom]

Приятная такая головоломка для любителей Перла:

my $scale = [$dx => $dy] -> [$dy <= $dx];