Language Basics Perl

#!/usr/bin/perl
use warnings;
use strict;
use vars qw($constantstring); 
*constantstring=\"immutable"; 
print $constantstring;        
$constantstring='no!';