my @arr=map {$_, "=>$list{$_}"} keys %list;