use my_future_runtime;
my $x = get_command_line_param(); # $x may be mixed case
my $y = read_some_file(); # $y may be mixed case
sub_which_add_new_key($x, 'value_for_cobol');
sub_which_delete_key($y);
launch_cobol_prog();