sub get_item_by_name { my ($this, $item_name) = @_; foreach my $item ( @{$this->{item}} ) { if ($item->{name} eq $item_name){ return $item; } } return undef; } sub get_user_by_id { my ($this, $user_id) = @_; foreach my $user( @{$this->{user}} ) { if ($user->{id} == $user_id){ return $user; } } return undef; }