You want fetchrow_hashref:

while (my $row = $sth->fetchrow_hashref) {
    print map { sprintf "The $_ field: $row->{$_}\n" }
            sort keys %$row;

    # or more simply: $row->{name}, $row->{phone1} etc.
}
[download]