Help for this page
while (<FILE_HANDLE>){ @items = split /,/; # do something with @items }
foreach ( @lines ){ # split in here }