use v6;
class Person {
    has $.name;
    has $.title;
}

sub person($name, $title) { Person.new(:$name, :$title) };
my @employees =
	person("Eve", "Tech Support"),
	person("Alice", "Sales Manager"),
	person("Dave", "Janitor"),
	person("Fred", "Receptionist"),
	person("Bob", "Customer Services"),
	person("Greg", "Finance Manager"),
	person("Carol", "Marketing Manager"),
    ;
my @sorted =
    @employees.classify({ .title ~~ /Manager/ ?? 'manager' !! 'staff'})\
    .sort.map(*.value.sort(*.name));

say .perl for @sorted;