Write a Perl subroutine that takes as input the name of a file containing FASTA formatted sequences
(non-interleaved format) and two empty array references. On returning from the subroutine the two
array references should contain the names and sequences in the input FASTA file.

For example if the file dna.fasta contains

>human
ACCGTA
>chimp
ACCGAA

and the subroutine &get_data("dna.fasta", \@sequences, \@names) is called, then on return
@names=("human","chimp") and @sequences=("ACCGTA","ACCGAA").

Submit your solution as a file called <firstname>HW4.pl to the teaching assistant Shikha Kaushal
(shikha.kaushal@gmail.com). Replace <firstname> with your first name.

Usman