@1=a..c;

my $a="012210";

$a =~ s/(.)/$1[$1]/g;

print $a;