#!/usr/bin/perl -w
use strict;
my $item1 = "1,2,3,4,5";
my $item2 = "a,b,c,,";

my @split1 = split( /,/, $item1, 5);
my @split2 = split( /,/, $item2, 5);
# better yet, to set the size of the array at run-time...
# my @split2 = split( /,/, $item2, ($#split1 + 1));


print "item1 has " . ( $#split1 + 1) ." elements:\n";

foreach(@split1){
	print "'$_'\n";
}

print "\nitem2 has " . ( $#split2 + 1) ." elements\n";
foreach(@split2){
	print "'$_'\n";
}