Select Code to Download

my @users;
foreach my $id (@userIds) {
       push (@users,User->new($id));
}

my @users=User->new($id1,$id2,$id3,$id4);

sub new {
    my $proto = shift(@_);
...
    my $href = GETSQL("SELECT user_name FROM users WHERE user_id = $us
+erId");
    @{$self}{keys %{$href}} = values %{$href};
        return $self;