Perl hash slices

# filling
%{ $hash } = map { $_ => 1 } @{$array};

# squashing
@{ $hash }{ @{$array} } = (1) x @{$array};
@{ $hash }{ @{$array} } = ();

Quotes

codes:  friendly  numerical  hex
    "   "    "      "
    '             '      '

I love bash

Я люблю баш:
получить имена отсортированных по размеру файлов с определённым расширением и именами, начинающимися с определённых буков, находящихся в определённой папке:

ls -S1 path/to/files*.ext