if ($_ ne "")   #wenn die zeile nicht leer ist          
{
   push(@erste_Zeile, "$_ , "); #füge an
   #print "@erste_Zeile";
   my @split = split(/,/, $_);
   print "$split[0]";
}

#!/usr/bin/perl -w
use strict;
for (<DATA>) {
  my @line = split(/,/, $_);
  print "$line[0]\n";
}

__DATA__
test,blubbb,test123
hier,ein,satz
und,noch,einer

stefan@workaholic:~$ perl programmierung/perl/community/split.txt
test
hier
und

my @split = split(/\t/, $_);

#!/usr/bin/perl

use strict;
use warnings;

my $first_line = <DATA>;
my $first_col = (split(/,/,$first_line))[0];
print $first_col;

# bei _ _DATA_ _ musst Du die Leerzeichen weglassen
_ _DATA_ _
name,alter,ort
till,19,ffm
maik,20,dortmund
test,44,musterstadt