#!/usr/bin/perl -w

# this will join repeatable fileds in one

sub shelf {
	return join(" ",@_);
}

1;
