$_ = "LName, FName    99999   99        M        99.9     12/2000  Add       99.99      99.99";

my @keys = qw{ name id ps gender age month code cap pool };
my %info;

@info{@keys} = unpack("a16a8a10a9a9a9a10a11a8", $_);

foreach (@keys) {
        $info{$_} =~ s/\s*$//;
        print "$_='$info{$_}'\n";
}