foreach (@handles)
{
    print $_ "Blah blah blah\n";
    close $_;
}