Can't use string ("1") as an ARRAY ref while "strict refs" in use at (re_eval 96) lin

[Jyoteeprakash]

My Code Snippet.

#!perl -w
 
#############################################################################
#
 
 
 
 
 
 
use SOAP::Lite;
use POSIX qw( strftime );
use warnings;
my $data_date = strftime("[%m/%d/%Y %H:%M:%S]", localtime);
my %InputParms;
my $temp_elements;
my $response = 1;
 
    ##############################################
    #
    # Step 1 - Email the reminder
    #
    ##############################################
 
    my $soap1 = SOAP::Lite
        -> uri('urn:MsgDeliveryService')
        -> proxy("http://$ENV{MSGDEL_WS_HOST}/MsgDeliveryService/services/MsgDeliveryService");
 
    my $subj = "Activity Sheet Daily Report Notice";
 
    my $recp = "abc\@gmail.com";
    if( $ENV{CTRM_ENV} ne "PRD" ) {
        $subj = "$ENV{CTRM_ENV}: TEST : $subj";
 
        $recp = "abc\@gmail.com";
    }
 
    %InputParms = (
        FROM      => "abc\@gmail.com",
        SUBJECT   => "$subj",
        PAYLOAD   => "The Activity Sheet Daily Report is available",
        DLVR_MTHD => "SMTP",
        RECIPIENT => "$recp"
        );
 
    $temp_elements = SOAP::Data
        -> value( SOAP::Data
        -> type('map', \%InputParms)
        );
 
    $response = $soap1->deliverMsg($temp_elements);
 
exit ($response?0:1);