sub do_somn { my $self = shift; for my $username ($self->{username}) { my $a = $username; my $b = $username; # ... } }