#!/usr/bin/perl

$objects = <<EOF;
ClusteringOptions
common 
Data
gcluto-batch
MDS
MtnVis
ProjectItem
Solution
EOF

$prefix = shift; 
$ext = shift;

foreach $object (split / *\n/, $objects) {
   print "$prefix$object$ext ";
}