For your consideration:

use Data::Dumper;
use Number::Convert;

my @arr = map Number::Convert->new($_), (10, 20, 0b010101, 0xF, 023);
print $_->ToDecimal, $/ for @arr;
[download]