Here is my go at 72:

sub grey{
   my($b)=@_;my$l=$b<2?['']:grey($b-1);
   [map("0$_",@$l),map"1$_",reverse@$l]
}
[download]

Aziz,,,