perl -w -e '%x=(a=>7,b=>8,c=>9);@s=(qq(a),qq(b));$y=@x{@s};print $y;'