my $array = [ map { transmogrify_foo( $_ ) } 1..31 ];