foreach my $c (sort keys %list) {
    print "$list{$c}->[1],$list{$c}->[0]$/"
}