Yes, you can:

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

This should do what your code does, but your code doesn't seem to match exactly your description (and it has an unnecessary assignment)...