Select Code to Download

use strict;
use warnings;
...

my $fh=$filehandle[0];
print $fh "Hello\n";

use IO::Handle;

$filehandle[0]->print("Hello\n");