for my $old ( @existing_names ) {
    my $new = $old . ".foobar";
    rename $old, $new or warn "rename failed for $old -> $new\n";
}