#!/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