Select Code to Download

my %people;
while( my $line = <IN> ) {
...
        push @{$people{$name}}, $value; # push 2nd,3rd,.. value on arr
+ay
    }
}

%people = (
          'Andreas' => [
...
                       '08'
                     ]
        );