в муках родил сегодня сортировку массива хешей по полю маркировки (та продукты маркируются типа 1.1 1.2 или 6.0):
@product_data = map {$_->[2]} sort {$a->[0]<=>$b->[0]||$a->[1]<=>$b->[1]} map {[split(/\\./,$_->{\'product_mark\'}),$_]} @product_data;
правда
открыл потом PerlCookBook и увидел нечто похожее
:super: Perl рулит! в общем, не могу не похвастаться