email( {to=>$to, from => $email, ..., imgs => \@imgs} );
...

sub email {
    my ($vals) = @_;
    ...
    my $imgs = $vals->{ imgs } || [];
    ...