@{$message->{headers}}

##</code><code>##

my ($from_address) = grep /^From:\s/i, @{$message->{headers}}; 
  #^             ^  Parens added to create list context, to get CONTENT rather than COUNT