Eu preciso usar a entrada padrão pra que o usuário forneça sequências de DNA depois preciso inverter essas sequencias e gerar um arquivo .fasta com as sequências invertidas
Mas não sei como gerar o arquivo
Esse é o script que eu fiz até agora pra inverter as sequencias
print "seja bem-vindo(a)!\n";
#armazemando as sequencias em strings
print "digite sua primeira sequência\n";
my $seq1 = <STDIN>;
print "digite sua segunda sequência\n";
my $seq2 = <STDIN>;
print "digite sua terceira sequência\n";
my $seq3 = <STDIN>;
# Inversão da ordem das sequências acima:
$seq1_invertido = reverse $seq1;
$seq2_invertido = reverse $seq2;
$seq3_invertido = reverse $seq3;
Como eu faço pra gerar o arquivo com as sequencias invertidas?