sub double_each {
 return map {$_ * 2 } @_;
}