print $fh "@{[ map { 'something' . $_ } @list ]}\n";