perl -le '@2 = 1..3; @1{qw(a b c)} = @2; print "$_=>$1{$_}" for keys %1'
c=>3
a=>1
b=>2