my $from_address = grep /^From:\s+/i, @{$message->{headers}}; 

##</code><code>##

my $from_address = ( grep /^From:\s+/i, @{$message->{headers}} )[0];