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

##</code><code>##

my @list = map { 'something' . $_ } $number1 .. $number2;