my $dummy = "Y";
my @buffer = qw(a b c d);
print join(//,@buffer),"\n";