sub WriteLog($$)
{
my ( $logtype, $logtext ) = @_;
my ( $out,@items)=();
push @tems, ( ref($logtext) eq 'ARRAY' ) ? @$logtext : $logtext;
}

And the call to the WriteLog is like :

WriteLog( "INFO","*******Import Begin *****");

=======================================