send_2( $name, $pic, 'test' ); #### sub send_2 { my ($args) = @_; my $name = $args->{ name } || ''; my $filehandle = $args->{ filehandle } || ''; my $id = $args->{ id } || ''; }