sub x
{
    print "Starting with X\n";
    my $ret = _shared_code(@_);
    return "From X: $ret";
}

sub y
{
    print "Starting with Y\n";
    my $ret = _shared_code(@_);
    return "From Y: $ret";
}

sub _shared_code
{
    # Do stuff here
}