my @t = split /,/, $_;