#! /usr/local/bin/perl5 $var = "scalar"; @var = ("element1","element2","element3"); print("This is the scalar \$var: $var \n"); print("This is the array \@var: @var \n"); print("This is a different output of \@var: ",@var, "\n"); print("Here is an element of \@var, \$var\[1\]: $var[1] \n"); print("Note which element is shown above. \n"); $var = @var; print("The number of elements in \@var is $var. \n"); $var = $var[0]; print("The 1st element of \@var is ",$var,"\n");