#!/usr/bin/perl

print "content-type: text/html \n\n"; #HTTP HEADER

# DEFINED STRINGS
$astring = "Rain-Drops-On-Roses-And-Whiskers-On-Kittens";
$namelist = "Larry,David,Roger,Ken,Michael,Tom";

# STRINGS ARE NOW ARRAYS
@array = split('-',$astring);
@names = split(',',$namelist);

# PRINT THE NEW ARRAYS
print "@array\n";
print "@names";;