use Roman;
   ...
   push @list_ret, arabic($_);