Need help tweeking this perl code
#naming and opening fasta file with DNA Sequences
Create subroutine to prompt user for fasta file name
Create conditional loop within subroutine able to handle multiple incorrect filename inputs by user
#Once user input is successful, condition is meet'. Proceed
Prompt user for a fasta file name “DNASEQ.fa”
Open file or die “Cannot Open File”
Close “DNASEQ.fa”
Return “DNASEQ.fa”
#read DNA Sequences from fasta file into an array while ignoring header
Create new subroutine for handling the conversion of file sequences to the desired array format
Input is “DNASEQ.fa”
read file contents into @DNASEQ array
Shift anything to the left of “>” out of array
Convert any lowercase script to upper case
Remove all white spaces and concatenate all sequences in array
Return new array @DSEQCURATE