#!/usr/bin/env perl -w

#What does the following program print?
$mystring = "Hello World";
@myarray = split ("", $mystring); #What does it mean to split on nothing?
print @myarray, "\n";
print "@myarray\n";
print '@myarray\n';
print "5th element of \@myarray is $myarray[4]\n";

#--------------------------------------------------------------------------
#!/usr/bin/env perl -w

#What does the following program print?
use strict;
my @a;

@a = (1, 3, 5, 7);
print @a;
print "\n";

print "@a";
print "\n";

$, = "\t";
$" = "\n";

print @a;
print "\n";
print "@a";
print "\n";

#------------------------------------------------------------------------
#!/usr/bin/env perl

my $string = qq/Hello, how are you?/;

my @array = split (/ /, $string);

print "$array[0] - $array[1] - $array[2] - $array[3] - $array[4]!\n";

#--------------------------------------------------------------------