use Mail::Sendmail qw( sendmail );

sendmail(
    To => '...',
    From => '...',
    Subject => '...',
    Body => join( "\n", @array ) )
    or die "Drat!"