my @arr = (1..10);

        print                 # lastly, display result
             join ":",        # and glue together
             map { $_**3 }    # then cube each one
             grep { $_ % 2 }  # then get the odd ones
             @arr             # first, start with numbers
        ;