c:\@Work\Perl\monks>perl -wMstrict -le
"sub something { return (3,4,5) };
 ;;
 my $x = 'some data';
 ;;
 $x .= join '--', something;
 print qq{'$x'};
"
'some data3--4--5'