Select Code to Download

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

my $value = ( split /,/, $string )[ -1 ];