Select Code to Download

#   <--------- inches ---------><----- ft ----->
    my @inches= ConvertTo( 'in', 'ft', 1, 2, 3 );
    # @inches is now ( 12, 24, 36 )

    my $toInFromFt= ConvertTo( 'in', 'ft' );
    while(  <IN>  ) {
        chomp;
        print OUT $toInFromFt->($_), $/;
    }

my @table = (
    #### temperature
...
    # Pick one of the solutions at random: (:
    return split ' ', (@source{@sol})[rand @sol];
}