#!/usr/bin/perl

while (<>) {
    @a = split;
    $name = shift @a;
    $gcos = [getpwnam($name)]->[6];
    if ($gcos) {
        $name = [split /,/, $gcos]->[0] . " # $name";
    }
    for $phone (@a) {
        $phone =~ s/(\d\d\d)(\d\d\d)(\d\d\d\d)/$1-$2-$3/;
        print "$phone $name\n";
    }
}