use strict;
use warnings; 
use 5.024;

my @zeile_1 ;
my @zeile_2 ;
my @zeile_3 ;
my $ref_zeile_1 = \@zeile_1;
my $ref_zeile_2 = \@zeile_2;
my $ref_zeile_3 = \@zeile_3;
my @signal_hash = ( $ref_zeile_1, $ref_zeile_2, $ref_zeile_2 );

$signal_hash[0]->[1] = 1;
$signal_hash[1]->[1] = 8;
$signal_hash[2]->[1] = 66;
$signal_hash[0]->[2] = 4;
$signal_hash[1]->[2] = 5;
$signal_hash[2]->[2] = 6;
$signal_hash[0]->[3] = 7;
$signal_hash[1]->[3] = 8;
$signal_hash[2]->[3] = 9;

print (" $signal_hash[1]->[1] $signal_hash[0]->[1] $signal_hash[2]->[1] $signal_hash[0]->[2] $signal_hash[2]->[2] \n\n");