my @managers = sort {$a->[0] cmp $b->[0]} @{$sth->fetchall_arrayref ()}; for my $index (0 .. @managers) { eval { my $id = sprintf "%s-%03d", $managerName, $index + 1; die if exists ($managers[$index][0]) and $managers[$index][0] eq $id;