@a=("abc",1,"42","dolphin"); 
%b=@a; 
print "$_,$b{$_}\n" for keys %b;