void AV::unshift( const AV& list ){
AV array = list;
int len = array.length();
Perl_av_unshift( my_perl,(old_AV_ptr)m_c_av_ptr, len );
for( int i = 0; i < len; i++ )
store( i, array[i] );
}
ostream& operator<<( ostream& os, const AV& av ){
AV temp = av;
int len = temp.length();
if( len == 0 )
return os << "()";
string s = "(";
for( int i = 0; i < len - 1; i++ )
s += (string)temp[i] + ",";
s += (string)temp[len-1] + ")";
return os << s;
}