my $myNames = "Jones, Smith, Baker, Johnson,";
$myNames =~ s/,$//;