my %data = ( 
  key1 => [ 1..5 ],
  key2 => [ 6..20 ],
);
print "Laenge key1: ", scalar(@{ $data{key1} }), "\n";
print "Letzer Index: ", $#{ $data{key1} }, "\n";