create object

package Game;
sub new
{
        my $class = shift;
        my $self =
        {
                _gameId => shift,
                _gameCategory => shift,
                _gameKeyword => shift,
        };
 
        print "gameid is $self->{_gameId}\n";
        print "gameCat is $self->{_gameCategory}\n";
        print "gameKeyword is $self->{_gameKeyword}\n";
}
 
$object = new Game( "someGameid", "someCat", "someKeyword");