use warnings;
use strict;
use Config;

my $obj = tied %Config::Config;

print $Config::Config{startperl}, "\n";

$obj->{startperl} = "garbage";

print $Config::Config{startperl}, "\n";

__END__
outputs:

#!perl
garbage