while( my ($k, $v) = each %list ) {
     push(@arr,$k,($v = "=>".$v));
}