my @files; #the files my %handles; foreach my $name (@files) { open $handles{$name},$name or die "$name:$!"; } foreach my $fh (values %handles) { print $fh scalar(localtime),"\n"; } foreach my $fh (values %handles) { close $fh; }