my @list = qw(oof rab zab);

my $last = pop(@list);
for my $thing (@list) {
  print $thing.'-';
}
print $last;

##</code><code>##

my @list = qw(oof rab zab);

print join('-',@list);