Select Code to Download

my @list = qw(oof rab zab);

...
  print $thing.'-';
}
print $last;

my @list = qw(oof rab zab);

print join('-',@list);