Select Code to Download

sub alist_get {
  my $k = shift;
  for (@_) { return $_ if $_->[0] eq $k }
...
}

push @{alist_get('two', @arr)->[1]}, 222;