#!/usr/bin/perl -T
use strict;
use warnings;
use Test::More tests=> 2;

my @arr = (1..10);
my $answer = '1:27:125:343:729';
my $x;

use Acme::BottomsUp;
@arr			# start w/ numbers
    grep { $_ % 2 }	# get the odd ones
    map { $_**3 }	# cube each one
    join ":",		# glue together
    $x =		# store result
;
is($x, $answer);
no Acme::BottomsUp;

$x = join ":",
	map { $_**3 }
	grep { $_ % 2 }
	@arr
;
is($x, $answer);