#!/usr/local/bin/perl

$var1 = 124;
$var2 = "Hello, how are you?";

@var1 = (124, 45, 3.25);
@var2 = split (/ /, $var2);

print "\$var1 = $var1\n";
print "\$var2 = $var2\n\n";

print "Array 1 = @var1\n";
print "Array 2 = @var2\n";
$" = ", ";
print "Array 2 (with different separator) = @var2\n";

print "Last index of \@var1 is $#var1\n";
print "Last index of \@var2 is $#var2\n";

print "$var2[0] - $var2[1] - $var2[2] - $var2[3]!\n";
print "$var1[0] - $var1[1] - $var1[2] - $var1[3]!\n";