Is there any shortest and easiest way.

In this specific domain, yes there is:

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

That's maybe not quite what you had in mind, but I throw it in for completeness.