use strict;
use warnings;

package Music;

sub new {
	my $class = shift;
	my $number1 = @_; 
	my $number2 = &add_numbers;
	my $ref= { "Number_one"	  =>	$number1,
			   "Number_two"	  =>	$number2
			   };
			   bless($ref, $class);
}

sub add_numbers {
	my $self = shift;
	my $value = $self->{"Number_one"} ;
#	my $value = 2;
	return $value;
};

sub display_values{
	my $self = shift;
	print "$self->{'Number_one'}\n";
	print "$self->{'Number_two'}\n";
}

1;

##</code><code>##

	my $value = $self->{"Number_one"} ;

##</code><code>##

use strict;
use warnings;

use Music;

my $value = Music->new(5);
$value->display_values;