package Phone;
sub prettify {
    local ($_) = @_;
    /^$/ and die "No number\n";
    # do something to modify $_ here
    $_;
}