iperl> join " ", sort qw( squash apple turnip )

= apple squash turnip

iperl> 8576275 / 3326 * 5.5

= 14182.0542693927

iperl> sub double { my $n = shift; $n * 2 }

iperl> double 2

= 4

iperl> double double double 2

= 16

iperl>