fork download
  1. #!/usr/bin/perl
  2. @months=("july","august","september");
  3. @months[0,1]=@months[1,0];
  4. print @months;
Success #stdin #stdout 0s 18256KB
stdin
Standard input is empty
stdout
augustjulyseptember