diff --git a/cli/raw_printing.pl b/cli/raw_printing.pl
new file mode 100644
index 0000000..e1f3746
--- /dev/null
+++ b/cli/raw_printing.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+
+my $forename = "John";
+my $message = "Hello ";
+
+print $message;
+print $forename;
+print "\n";
diff --git a/cli/scalar_numbers.pl b/cli/scalar_numbers.pl
index 0b9f2da..abb3454 100644
--- a/cli/scalar_numbers.pl
+++ b/cli/scalar_numbers.pl
@@ -1,9 +1,30 @@
 #!/usr/bin/perl
-use strict;
-use warnings;
 
 my $age = 30;
 
 print "Hello $age year old.\n";
 
+
+
+my $x = 10;
+my $y = $x + 1;
+
+print "Using a number $x + 1 = $y.\n";
+
+$x = "10";
+$y = $x + 1;
+
+print "Using a string $x + 1 = $y.\n";
+
+$x = "ten";
+$y = $x + 1;
+
+print "Using an English word, $x + 1 = $y.\n";
+
+$x = "2ten";
+$y = $x + 1;
+
+print "Using a funny string, $x + 1 = $y.\n";
+
+
 1;