Select Code to Download

This is the input:
>d1dlwa_ a.1.1.1 
slfeqlggqaavqavtaqfyangidmpnqtnktaaflcaalggpnawtgrnlkevhanmgvsnaqfttvi
+ghlrsaltgagvaaalveqtvavaetvrgdvvtvniqadatvatff
>d1uvyc1 b.1.1.1 
niqadatvatffngidmpnqtnktaaflcaalggpnawtgrnlkevhanmgvsnaqfttvighlrsaltg
+agvaaalveqtvavaetvrgdvvtvslfeqlggqaavqavtaqfya

My expected output (each in a .fa file):
>1dl_a_
slfeqlggqaavqavtaqfyangidmpnqtnktaaflcaalggpnawtgrnlkevhanmgvsnaqfttvi
+ghlrsaltgagvaaalveqtvavaetvrgdvvtvniqadatvatff
>1uvy_c1 
niqadatvatffngidmpnqtnktaaflcaalggpnawtgrnlkevhanmgvsnaqfttvighlrsaltg
+agvaaalveqtvavaetvrgdvvtvslfeqlggqaavqavtaqfya

#!/usr/bin/perl -w
@PDBchain;
...
         #WHY AM I UNABLE TO PRINT THE SEQUENCE HERE?
         close OUT;
}