use warnings;
use 5.14.0;
use utf8;
package My_Package;

use Exporter 'import';
our @EXPORT_OK = qw(my_random);

sub my_random {
    my ( $list, $option ) = @_;
    binmode STDOUT, ":encoding($option->{encoding_stdout})";
    my $rand_element = $list->[rand @$list];
    say $rand_element;
    return $rand_element;
}