file problem

problem is to write to file email.txt what i see in print @$msg ;
i write a code:

      #!/usr/bin/perl -w
      use Net::POP3;
      open (SALES ,">> email.txt");
    $pop = Net::POP3->new('pop.mail.ru');

    if ($pop->login('user', 'pass') > 0) {
      my $msgnums = $pop->list; # hashref of msgnum => size
      foreach my $msgnum (keys %$msgnums) {
         $msg = $pop->get($msgnum);
         print @$msg ;
        $pop->delete($msgnum);
           
            }
    }

    $pop->quit;
   close SALES;

Code (markup):

 

I think you have to do a join; since you want to write all elements?