$val = 3;
print "The value is $val$/";
printf "The value is %d$/", $val;
$str = sprintf "The value is %d$/", $val;
print $str;
%val = ( A => 1, B=>2, C=3 ) ;
print "The values are: A = $val{A}, B = $val{B}, C = $val{C} $/";
use 5.16.0;
use strict;
my $value = 2;
my $printString = "the value is ".($value+1);
print $printString;