my $last = ( split /,/,join "\n",$myscalar )[-1];