perl -e '@{ @_ } = 1'