1. In this lab assignment we will be using the vim or emacs editor in addition to the commands we have already learned. Open a shell terminal and create a file named in your home directory (use only lowercase letters). In this lab you will construct a few short Perl programs that perform the actions specified below.

List of tasks

1. The following is a section of a program. Show the value of each variable at each step:

@array = (0, 2..6,"abc");         what is @array?

$a = pop(@array);                  what is $a?

$b = shift (@array);                what is $b?

what is @array?

2. Read each of the words contained in the array @ARGV. Print words and the number of their occurrence to standard output line by line (note: case matters here). For example, if your script is called "count.pl", then executing ./count.pl the test program Test the word generates

test                  1

Test                 1

the                   2

word                 1

program           1

3. Read in the file dna.seq (in ~afigueroa/csci2344/lab9) and count the number of As, Ts, Cs. and Gs. Print the percentage of each nucleotide. Note: your program should be case insensitive.