while (<>) {
@array = split(/,/, $line);
}