gistfile1.txt

sub open_and_parse_fasta($filepath) {
    my %FASTA_hash;
    my $FASTA_label = "";
    for $filepath.IO.lines.map(*.trim-trailing) {
        if .starts-with(">") {
            $FASTA_label = .substr(1,);
        } else {
            %FASTA_hash{$FASTA_label}.push: $_;
        }
    }
    %FASTA_hash{$_} .= join for %FASTA_hash.keys;
    return %FASTA_hash
}