Select Code to Download

#!/perl/bin/perl
#
...
    print $handles[$i] ,"Hi how the hell are ya!";
    close $handles[$i];
}

String found where operator expected at test.pl line 31, near "] "Hi h
+ow the
        hell are ya!"" (#1)
...

Uncaught exception from user code:
        Undefined subroutine &main::mprint called at test.pl line 31.

open ONE, ">one.tmp";
push @handles, *ONE;
...
push @handles, *TWO;
open THREE, ">three.tmp";
push @handles, *THREE;