my %hash = (
   'users' => ['user1', 'user2', 'user3']
);

push(@{$hash{users}},'user4');

splice(@{hash{users}},2,1);

print ${$hash{users}}[2],"\n";

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my %hash = (
  'users' => ['user1', 'user2', 'user3']
);

my $users = $hash{'users'};
print Dumper $users;
print "Index highest user: ", $#{$users}, "\n";

for (0..$#{$users}) {
    print "Index searched user: ", $_, "\n" if $users->[$_] eq 'user2';
}

@{ $hash{users}} = grep { ! /^users2$/ } @{ $hash{users} };

@{hash{users}} = grep {$_ ne 'user2'} @{hash{users}};

splice(@{$hash{users}}, map {++$i && $_ eq 'user2' ? ($i-1) : ()} @{$hash{users}},1)

...
for (0..$#{$users}) {
    print "Index searched user: ", $_, "\n" if $users->[$_] eq 'user2';
}