perl -e 'use strict; use warnings; 
  my @a = ( 1..10 ); 
  foreach (@a) { $_ = ( $_ + 1 ) % 10; }; 
  use Data::Dumper; print Data::Dumper->Dump([\@a], ["a"]);'

$a = [
       2,
       3,
       4,
       5,
       6,
       7,
       8,
       9,
       0,
       1
     ];