aded macro for perl like shift