use strict;
use warnings;

my @arr = qw(10 20 0b1101 0xF 023);
my @converted = map {$_ =~ /^0/ ? oct($_) : $_ }  @arr;
print "@arr\n";
print "@converted\n";