#!/usr/bin/perl -w
# 1p-1
#    VERSION: 1 (8 September 2003)
#    PURPOSE:  Yours to decide
#              One is to figure out how the lines in the Main Program work

############## LIBRARIES AND PRAGMAS ################
  use strict;

#################### VARIABLES ######################

my @array;                 # a set of values
my $scalar;                # a single value 

################### MAIN PROGRAM ####################

     @array = ("AATT","ACGT","AGCT","ATAT","CATG","CCGG","CGCG","CTAG",
               "GATC","GCGC","GGCC","GTAC","TATA","TCGA","TGCA","TTAA");
     $scalar = @array;
     print '@array = ', join(" ",@array), "\n";
     print '$scalar = ', $scalar, "\n";
