my @zw1 = ( [ 'z3;;120;;5;;;' ], [ 'z4;;121;;52;;;', '52' ], [ 'z5;;122;;5;;;' ], ); my @zw2 = ( [ 'z6;;120;;4;;;' ], [ 'z7;;121;;51;;;', '51' ], [ 'z8;;122;;5;;;' ], ); my @zw3 = ( [ 'z9;;120;;6;;;' ], [ 'z10;;121;;50;;;', '50' ], ); my %all_zwoelfer_ref =( zwoelfer1 => \@zw1, zwoelfer2 => \@zw2, zwoelfer3 => \@zw3, ); print Dumper \%all_zwoelfer_ref;