# expl3.pl  example  declare and print variable, vector, matrix
use strict;
use warnings;

print "perl  expl3.pl  running \n";
my $var1 = 17;
print "var1= $var1 \n";

my @arr1 = (2, 4, 6);
print "arr1= @arr1 \n";
print "arr1[0] = $arr1[0] \n";

my @mat2 = ([1, 2], [3, 4]);
print "mat2 $mat2[0][0]  $mat2[0][1] \n";
print "     $mat2[1][0]  $mat2[1][1] \n";
print " \n";

print "mat2= @mat2 \n"; # not useful

print "expl3.pl finished\n";