ersetze mal das hier:
my @signal_hash = ( $ref_zeile_1, $ref_zeile_2, $ref_zeile_2 );
durch das:
my @signal_hash = ( $ref_zeile_1, $ref_zeile_2, $ref_zeile_3 );

=)

für die ausgabe kannst du statt print auch say verwenden. dann brauchst du ggfs. kein "\n" anhängen.