@keys=qw'79 11 34 69 41 27'; @list_to_crypt = split/ /, 'writing Library. Building consider TO($FOO) *binary*' ; @result=map{ crypt ($_.' ', shift @keys) } @list_to_crypt ;