#!/usr/bin/perl 
use strict;
use warnings;

@_ = ( 1 .. 12 );

my @a =  map {
            my @l = (($#_+1)-$_ => $_+1);
            ($_+1)%2 ? @l : reverse @l; 
        } 0..$#_>>1; 

print "@a";