my @list = qw(oof rab zab);

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