package Child;
...
sub new {
    my ($class, $arg1, $arg2, $arg3) = @_; 
    my $self = $class->SUPER::new($arg1, $arg2);
    $self->{arg3} => $arg3;
    return $self;
}
...