() = ("head", "tail"); @ar = ( "head", "tail"); ($head, $tail) = ( "head", "tail" );