Сортировка массива по двум параметрам

#!/usr/bin/perl

use Data::Dumper;

my @meters = (
    {seq=>3, name=>"Їдальня"},
    {seq=>5, name=>"Контора"},
    {seq=>6, name=>"Госпдвір"},
    {seq=>4, name=>"Склад"},
    {seq=>2, name=>"Госпдвір"},
);

sub metOrder {
        my $items  = shift;
        my %minSeq;

        foreach $i (@$items) {
                if((! $minseq{$i->{name}}) or ($minseq{$i->{name}} > $i->{seq})) {
                        $minSeq{$i->{name}} = $i->{seq}
                };
        }

        return sort {
                ($minSeq{$a->{name}} != $minSeq{$b->{name}})
                        ?($minSeq{$a->{name}} <=> $minSeq{$b->{name}})
                        :($a->{seq} <=> $b->{seq})
        } @$items;
}

my @sorted = metOrder( \@meters );

print Dumper( \@sorted );

1 = b
6 = b

2 = c
3 = c

17,18c17,18
<         foreach $i (@$items) {
<                 if((! $minseq{$i->{name}}) or ($minseq{$i->{name}} > $i->{seq})) {
---
>         foreach my $i (@$items) {
>                 if((! $minSeq{$i->{name}}) or ($minSeq{$i->{name}} > $i->{seq})) {

my @sorted = sort {
    $a->{name} cmp $b->{name}
  and
    $a->{seq}  <=> $b->{seq}
} @meters;

Map(5 -> "c", 1 -> "a", 6 -> "b", 8 -> "a", 2 -> "b", 7 -> "d", 3 -> "b", 4 -> "a")
  .groupBy(_._2)
  .values
  .toList
  .sortBy(_.keys.min)
  .map(x => SortedMap(x.toSeq: _*))
  .flatten
// res55: List[(Int, String)] = List((1,a), (4,a), (8,a), (2,b), (3,b), (6,b), (5,c), (7,d))