my $first = 1; my @second = grep { ($_+1) % 2 } map { $_ ** 3 } 1..12; my %third = some_function();