use strict;
use warnings;

open(IN, "list.txt") or die;
chomp($line = <IN>);
($a, @ss) = split /\s+/, $line;
while (chomp($line = <IN>)) {
    ($aa, @prs) = split /\s+/, $line;
    for ($i=0; $i<@prs; $i++) {
$s{$aa}{$ss[$i]} = $prs[$i];
    }
}
close(IN);