my %hash = @list;
print "$_ - $hash{$_}\n" for keys %hash;