Good code

use 5.012;

sub smart_join {
    my $num = shift;
    my @num_arr = 1..$num;
    join '-',$num % 2 ? @num_arr : reverse @num_arr;
}

my $num_in = $ARGV[0] // 6;

say smart_join( $_ ) for 1..$num_in;