my @handles = map {FileHandle->new("> $_")} @filenames;
$handles[3]->print( 'Message to the fourth handle.', $/);
$_->print('Message to all handles', $/) for @handles;