my @array = split /,/, $string;
my $value = pop @array;