sub mySub {
    my ($param1, $param2, %bunchOfOptions) = @_;

##</code><code>##

use strict;
use warnings;

package Music;

sub new {
    my ($class, $number1) = @_;
    my $self = bless {"Number_one" => $number1}, $class;

    $self->{"Number_two"} = $self->add_numbers ();
    return $self;
}


sub add_numbers {
    my ($self) = @_;

    return $self->{"Number_one"};
}


sub display_values {
    my ($self) = @_;
    print "$self->{'Number_one'}\n$self->{'Number_two'}\n";
}


1;