sub get_props {
    my $obj = shift;
    # return just a list of values
    return ( map { $obj->$_ } @_ );
    # return a list of key/value pairs
    return ( map { $_, $obj->$_ } @_ );
    # to return references, just wrap the previous examples
    # into [] or {} as appropriate
}
my @meths = map { "get_value$_" } 1..3; # or whatever your methods are really
print "Values: @{[get_props($obj, @meths)]}\n"; # tweak to fit get_props()