Class 2, Exercise 1 - Prog. for Bioinformatics IIWelcome to Intro. to Prog. for 
Bioinformatics II
Class 2, Exercise 1
We will work with 'Motifs' in this exercise. Write just one Perl program called 
'Motifs' to do all of the following. Please DO NOT write six separate programs.
1. Define a scalar called $motif and assign it the value 'QLASV'. 
2. Define an array called @seqs and initialize it with 3 elements: 

CGDKKGELQLASVIPNVKLE
PNVVIPGGHHQLASV
NNQLASVHHEFCDBAQQZXYWLMNQPP


3. Find out where the motif QLASV appears in the elements of the array @seqs and 
store them in 3 different scalars called $loc1, $loc2 and $loc3. 
4. Create a hash called %locations whose keys are the elements of the array 
@seqs and whose values are the locations $loc1, $loc2 and $loc3, respectively. 
5. Print all the keys and values of this hash %locations, one line at a time 
like this: 

Key: key_here (followed by 2 tabs) Value: value_here
Key: key_here (followed by 2 tabs) Value: value_here


6. Add 2 new sequences, namely, 'KLVNQLASVWXYZ' and 'QLASVEDCCGHPPQ' as the 2nd 
and last element of the array @seqs. Find out where the motif QLASV appears in 
these 2 new elements and add these into the hash and print the hash again as in 
step 5.