Help for this page

Select Code to Download

Select or download this

@1=a..c;

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

print $a;