#!/usr/bin/perl
use strict;
use warnings;

my $bar1 = 'this002haa007hoothat';
my $bar2  = 'abcdef';
my $bar3 = "$bar1\t$bar2";

print "$bar3\n"; #or without $bar3
print "$bar1\t$bar2\n";
__END__
prints:
this002haa007hoothat	abcdef
this002haa007hoothat	abcdef