for my $m (sort nameFirst ('fred', 'alf', 'tom', 'bert', 'name', 'pete')) {
    print "$m\n";
}
sub nameFirst {
    if ($a eq 'name') {
        -1;
    }
    elsif ($b eq 'name') {
        1;
    }
    else {
        0;
    }
}