use Math::Roman;
print Math::Roman->new(uc $_)->as_number, "\n"
    for @roman;