my $length = scalar@contents;