Select Code to Download

#!/usr/bin/perl
use warnings;
...
print "$array[0]\n";
my @splitarray = split (/ /, @array);
print "@splitarray\n";

this is a test and hope this will work.
2