test line 1
test line 2
test line 3
test line 4
test line 5
test line 6

split -l 3 testfile myprefix_

ls -l myprefix_*

#!/usr/bin/perl -w

use strict;

my $input_file = "mytestfile";   # or whatever your file is called...
my $lines_per_split_file = 3;    # or whatever you like

# choose a file prefix with a random element to reduce the risk
# of getting confused by old split files, and do a quick check to
# be sure there are no files with the same prefix already existing
my $prefix = sprintf("splitter%05d_",int(rand()*10000));
my @files = glob("$prefix*");
($#files < 0) || die "there are pre-existing files with prefix $prefix, ABORTING\n";

# OK, if we didn't die yet then it's OK to proceed with the splitting
system("split -l $lines_per_split_file \"$input_file\" $prefix");
$? && die "error running split\n";

# Now the split has been done, we can use glob to get a list of the
# files it has created.  note @files was already declared, so we don't
# need to declare it again.
@files = glob("$prefix*");

# Now the array @files contains the list of split files, you can go on
# to do whatever you like with it
foreach my $file (@files) {
        print "got a file name: $file\n";
}