for(my $i = 0; $i < @filecontents; $i++)
{

    # place each line in file
    # into another array
    # 
    @line = split(/\,/, $filecontents[$i]);
    # XXX           ^------ do you really mean comma?