Language Basics Perl

$salary=50000;                   # Scalar assignment
@months=('Mar', 'Apr', 'May');   # Array assignment
%states= (                       # Hash assignment
       'CA' =>  'California',
       'NM'  => 'New Mexico',
            );
            
print "$salary\n";
print "@months\n";
print "$months[0], $months[1], $months[2]\n";
print "$states{'CA'}, $states{'NM'}\n";
print $x + 3, "\n";             
print "***$name***\n";