Perl: einlesen von Daten

Habe folgendes Problem:
Ein Datenfile: datain.txt mit folgendem Inhalt

2, 4, 6
77, 23, 8
usw..

Diese Daten möchte ich einlesen und weiterverarbeiten. Allerdings bleiben meine variablen leer..
Bitte um Hilfe!!

#!/usr/bin/perl

$file1 = "dataout.txt";

open(fout, ">$file1");

$file2 = "datain.txt";

unless( open(fin, "<$file2") ) {
die "error: could not open file '$file2':$!\n";
} # if

while($line = <fin>){

@var = split(/,/, $line);

$X = $var[0];
$C = $var[1];
$Zs = $var[2];