@hash{@array} = @array;

for (<*.*>) { $totalsize += -s }

@char_num{'A'..'Z'} = 1..26;

print sort <>

@div5 = grep { not $_ % 5} @n;

print map "$_: $h{$_}\n", sort keys %h;