Working with a file

I am new UNIX user. I am using HPUX.
Here is a sample file I am working with.

01-253850,170464,84,59555
01-325100,169793,81,95734
01-325470,120737,81,28893
01-358250,169995,81,51698

Is there any way for me to pull out each section individually and copy it to a new file. I want to separate the sections by the commas.

ex. the first line would be separated:

01-253850 This would be put into its own file
170464 This would be put into its own file
84 This would be put into its own file
59555 This would be put into its own file

Thanks,

Nick

Modified from Ygor's

#!/bin/ksh
while read line
do
IFS=","
eval set $line
if [[ $1 != "" ]]
then
p1=$1
p2=$2
p3=$3
p4=$4
echo $p1 >> pfile1
echo $p2 >> pfile2
echo $p3 >> pfile3
echo $p4 >> pfile4
shift
fi
done < your-input-file-here 

Modify this to your needs - this is assuming that you want all the positions in the same file (all of the position 4 of each line in pfile4).

Or...

$ cat filein
01-253850,170464,84,59555
01-325100,169793,81,95734
01-325470,120737,81,28893
01-358250,169995,81,51698

$ awk -F, '{for(x=1;x<=NF;x++)print $x>"fileout." x}' filein

$ head fileout.?
==> fileout.1 <==
01-253850
01-325100
01-325470
01-358250

==> fileout.2 <==
170464
169793
120737
169995

==> fileout.3 <==
84
81
81
81

==> fileout.4 <==
59555
95734
28893
51698