#!/perl/bin/perl
#
# test.pl -- IO:: test code...
use strict;
use warnings;
use diagnostics;
use IO::ScalarArray;
use IO::File;
use IO::Scalar;
my @list = qw(one.tmp two.tmp three.tmp);
my @handles;

foreach  (@list) {
    push @handles,new IO::File ">$_";
}
for (my $i = 0;$i < $#handles ;$i++) {
    print $handles[$i] ,"Hi how the hell are ya!";
    close $handles[$i];
}