$input = "ab,cd,efghi,jkl";
@input = split(/,/,$input);
$len = @input;
print "$input[$len-1]"; # splits properly into 4

$input = "ab,cd,efghi,jkl";
@input = split(/@/,$input);
$len = @input;
print "$input[$len-1]"; # splits into 2!